OK also ich hab meinen Code jetzt so geschrieben wie du ihn vorgeschlagen hast - aber irgendwie löscht er keinen einzigen Inhalt meiner Bilder??
was mache ich falsch?? -- was wäre zumm Beispiel mit dem Befehl: Bilder[h] := nil;
-- ich arbeite in diesem Programm mit Drag&Drop - könnte das ein Problem sein??
procedure TForm6.I_JouerClick(Sender: TObject);
var
i : Integer;
gefunden : Integer;
Setzen : Array[1..48] of Integer;
Zahlen : Array[1..36] of Integer;
Bilder : Array[1..48] of TPicture;
g : Integer;
h : Integer;
begin
Bilder[1] := I_1.Picture;
Bilder[2] := I_2.Picture;
Bilder[3] := I_3.Picture;
Bilder[4] := I_4.Picture;
Bilder[5] := I_5.Picture;
Bilder[6] := I_6.Picture;
Bilder[7] := I_7.Picture;
Bilder[8] := I_8.Picture;
Bilder[9] := I_9.Picture;
...
Bilder[36] := I_36.Picture;
Bilder[37] := I_Pair.Picture;
Bilder[38] := I_Impair.Picture;
Bilder[39] := I_Rouge.Picture;
Bilder[40] := I_Noir.Picture;
Bilder[41] := I_Passe.Picture;
Bilder[42] := I_Manque.Picture;
Bilder[43] := I_P.Picture;
Bilder[44] := I_M.Picture;
Bilder[45] := I_D.Picture;
Bilder[46] := I_1er12.Picture;
Bilder[47] := I_2e12.Picture;
Bilder[48] := I_3e12.Picture;
for h := 1 to 48 do begin
Bilder[h] := (FindComponent('I_'+IntToStr(i)) as TImage).Picture;
end;
end;