verschieden Farbige Bälle

[Undercover]

Delphi-Quellcode:

procedure TSpielfeld.FormCreate(Sender: TObject);
var i,j,cIndex: integer; r,x,y,vx,vy : single;
 begin
 Randomize;
  FColors := TList.Create;
  FColors.Add(Pointer(clWhite));
  FColors.Add(Pointer(clRed));
  FColors.Add(Pointer(clBlue));
  FColors.Add(Pointer(clYellow));
  for i := 1 to max do
    begin
      cIndex := Random(FColors.Count);
      (FindComponent('Ball'+inttostr(i)) as TBall).Brush.Color := TColor(FColors[cIndex]);
      FColors.Delete(cIndex);
    end;

Was gehört denn oben bei type noch rein?

Der sagt mir jetzt, dass bei FColors := TList.Create; der linken Seite kein Wert zugewiesen werden kann



Danke schonmal für die Antwort.^^