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.^^