Memory

[marabu]

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