Arrays und for-Schleifen

[juLiii]

:? 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;

[mkinzler]

Natürlich nicht. Er ersetzt ja das manuelle Zuweisen

Delphi-Quellcode:

Bilder[1] := I_1.Picture;
Bilder[2] := I_2.Picture;
Bilder[3] := I_3.Picture; 
...

[juLiii]

Aber irgendwie löscht er den Inhalt der Bilder nicht :cry:

[mkinzler]

Wie solle er auch? Du setzt auch nur Referenzen(Zeiger) auf Nil.

[juLiii]

und wie mache ich das jetzt??

[mkinzler]

Delphi-Quellcode:

for h := 1 to 48 do begin
   (FindComponent('I_'+IntToStr(i)) as TImage).Picture := Nil;
end;

[juLiii]

also: dieses mal geht es darum Tags aus Bildern wieder auf die Zahl null zu bringen:

Zahlen : Array[1..36] of Integer;
i : Integer;

Setzen[1] := I_1.Tag;
Setzen[2] := I_2.Tag;
Setzen[3] := I_3.Tag;
Setzen[4] := I_4.Tag;
Setzen[5] := I_5.Tag;
Setzen[6] := I_6.Tag;
Setzen[7] := I_7.Tag;
Setzen[8] := I_8.Tag;
Setzen[9] := I_9.Tag;
...

for i := 1 to 36 do begin
Zahlen[i] := 0;
end;

Warum funktioniert es nicht?? :?:

[mkinzler]

Was meinst du mit geht nicht?

[Fussball-Robby]

Wieder das gleiche Problem wie vorher: Du speicherst wahrscheinlich den Wert der Tags im Array, änderst die Werte des Arrays und weist diese geänderten Werte nicht zu. In dem Post vor deinem wurde aber eigentlich schon perfekt gezeigt, wie du das machen musst.

Mfg