Variablen in Objektnamen verwenden?

[Sluak]

Hallo

Es geht um folgendes Problem: Ich schreibe gerade ein Memory Spiel mit Delphi. Dabei gibt es 30 Bilder der einzelnen Karten. Nun möchte ich(wenn zwei Karten gezogen wurden, die nicht übereinstimmen) die Karten wieder umdrehen.
Derzeit wäre mein einziger Lösungsansatz dafür, dem Array (was die Koordinaten der Karten in der Form darstellt) einen Wert zB 0 zuzuweisen und dann per If then Schleife die Karten wieder zurück zum Deckblatt zu führen.

Das Problem an der ganzen Sache ist, dass so bei 30 Bildern mindestens 100 Zeilen entstehen, die weder übersichtlich, noch praktisch sind.

Gibt es eine Möglichkeit, zB um eine Variable x:Integer in den Objektnamen einzubringen?
Beispiel:
Statt bisher Image1.Picture.LoafFromFile(...);
möchte ich nun also ImageX.Picture.LoadFromFile(...);

Bei google fand ich bisher leider absolut nichts.

Könnt ihr mir vielleicht helfen?


mit freundlich(st)en Grüßen
Sluak

[mkinzler]

Schau dir mal FindComponent() an

[pustekuchen]

Danke. Genau das hab ich mich vor 10 min auch gefragt^^

So könnte es aussehen:
(FindComponent('Image' +IntToStr(choice+1)) as TPicture).LoadFromFile(....);

[Sluak]

Delphi-Quellcode:

For i:=1 to 30 do
begin
(FindComponent('Image'+IntToStr(i)) as TPicture).LoadFromFile('bilder\deckblatt.bmp');
end;

Leider kommt dabei bei mir folgende Fehlermeldung: [Fehler] Memory.pas(149): Undefinierter Bezeichner: 'LoadFromFile'

[Neutral General]

Hallo,

Es muss so aussehen:

Delphi-Quellcode:

for i:=1 to 30 do
begin
  (FindComponent('Image'+IntToStr(i)) as TImage).Picture.LoadFromFile('bilder\deckblatt.bmp');
end;

Gruß
Neutral General

[Bummi]

Delphi-Quellcode:

For i:=1 to 30 do
begin
TImage(FindComponent('Image'+IntToStr(i)).LoadFromFile('bilder\deckblatt.bmp');
end;

[Neutral General]

PS: Die Dinger auf dem Formular heißen "TImage"

[WM_CLOSE]

Zitat von Sluak:

Delphi-Quellcode:

For i:=1 to 30 do
begin
(FindComponent('Image'+IntToStr(i)) as TPicture).LoadFromFile('bilder\deckblatt.bmp');
end;

Leider kommt dabei bei mir folgende Fehlermeldung: [Fehler] Memory.pas(149): Undefinierter Bezeichner: 'LoadFromFile'

tausch das aus:

Delphi-Quellcode:

For i:=1 to 30 do
begin
(FindComponent('Image'+IntToStr(i)) as TImage).Picture.LoadFromFile('bilder\deckblatt.bmp');
end;

[Bummi]

@Neutral General

uuuppps, danke, habe gepennt

[Sluak]

Vielen, vielen Dank.
Es funktioniert (wie auch nicht anders zu erwarten )

EDIT: Geht das auch mit Prozeduren?

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
BildKlick(1,0,0);
Image1.Picture.LoadFromFile('bilder\'+IntToStr(i)+'.jpg');

Etwas dergleichen habe ich auch 30 mal derzeit in dem Programm stehen.