Hallo.
Ich würde mir im Abschnitt
private der Form eine Liste deklarieren:
Delphi-Quellcode:
uses // ...
Contnrs;
type
TGameForm = class(TForm)
// ...
procedure FormCreate(Sender: TObject);
private
Cards: TObjectList;
end;
Im Ereignis OnCreate() der Form würde ich alle Image-Komponenten auf der Form einsammeln:
Delphi-Quellcode:
procedure TGameForm.FormCreate(Sender: TObject);
var
i: Integer;
begin
Cards := TObjectList.Create;
for i := 0 to Pred(ControlCount) do
if Controls[i] is TImage then
Cards.Add(Controls[i]);
end;
Mit einer Shuffle-Routine (hint) würde ich diese Liste durchmischen. In einer ImageList habe ich 4 Bilder (Index 0 bis 3) für meine 8 Karten und vielleicht ein zusätzliches (index 4) für den Kartenrücken. Der TImage-Komponente mit dem Index
i ordne ich dann das Bild mit dem Index
i mod 4 zu. Ich höre hier mal auf - du willst das Programm bestimmt selber schreiben...
Grüße vom marabu