Schleife um Nummerrierte images in Array zu lesen

[Fussel9]

hi ich hab schonmal ne ähnliche Frage gestellt, stehe aber am ende wieder vor dem selben Problem:

Delphi-Quellcode:

procedure TFormMain.ShowCard (const aImages: array of TImage;
                        const aPath: String);
var
  i : Integer;
begin
  for i := 0 to High(aImages) do
    aImages[i].Picture.LoadFromFile(aPath);
end;

das war die Lösung die ich damals bekommen habe mein jetziges problem:
Wie kann ich das array of Timages automatisch füllen???

Jetzt müsste ich es so aufrufen:

Delphi-Quellcode:

  ShowCard([OpCa21,OpCa22,OpCa23,OpCa24,OpCa25,OpCa26,OpCa27,
            OpCa28,OpCa29,OpCa210,OpCa211,OpCa212,OpCa213,
            OpCa214,OpCa215,OpCa216,OpCa217,OpCa218,OpCa219,
            OpCa220],X+'CARDbackHORIZ.jpg');

schön wäre es wenn es eine möglichkeit gäbe es so zu realisieren:

Delphi-Quellcode:

for i := 1 to prunde do
  begin
    Hand[i]:=Card[i];
  end;

so dass ich hinterher ein array mit den Komponenten Card1,Card2,Card3 usw habe je nach runde...

Kann mir jemand helfen?

[freak4fun]

Ich verstehe nicht was du da genau machen willst.
Wie hängen Hand, Card und aImages zusammen?

PS: Geburtstag: 10.08.1934 :stupid:

[Fussel9]

hm... also ich programmiere ein kartenspiel....
es gibt eine Liste in der 60 karten enthalten sind jede karte hat einen Pfad für die zugehörige imagekomponente

jetzt hab ich ja schon die prozedur show card mit einer solchen will ich für jede in der gui befindliche imagekomponente das bild laden lassen also will ich das Array of TImage ( siehe parameter showcard) mit der in der Hand befindlichen Anzahl an karten füllen die der anzahl der runden entspricht
--> runde eins jeder spieler hat eine karte ect.ect.

hoffe das ist einigermaßen verständlich^^ :mrgreen:

ich will das halt für die komponenten mit ner schleife regeln ohne das ich alle komponenten auflisten muss
denn die komponenten heißen Card1,Card2,Card3,Card4 usw.
mit anderen Worten Card[i]
...
am ende soll also so was rauskommen:

Card[i].Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+ KListe.aktuelles);
Kliste.next;

rot markiert ist mein probem :wink:

[fkerber]

Hi!

Schau mal nach FindComponent


Grüße, Frederic

[freak4fun]

Im Ordner liegen 4 Bilder 1..4.jpg.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 4 do
    (FindComponent(Format('Image%d', [i])) as TImage).Picture.LoadFromFile(
      ExtractFilePath(ParamStr(0)) + Format('%d.jpg', [i]));
end;

Aber das ist doch auch schon die Antwort in deinem anderen Thread. :stupid:

[Fussel9]

Ich hab mir die Delphi-Hilfe zu Format mal durchgelesen, und ich raff da nix von... kann mir das jemand anders erklären... in bezug auf das beispiel oben?