Variablen in Objektnamen verwenden?

[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.

[Sluak]

Ein anderes Problem bestünde da allerdings noch, deswegen auf Doppelpost (sorry, aber ich glaube, dass ansonsten alle noch davon ausgehen würden, dass das Thema beendet wäre).

Ich habe eine Prozedur erstellt, die eben zB die Karten miteinander vergleicht, Punkte addiert, etc. Jetzt wollte ich eure Tipps anwenden, um die nicht zueinander gehörenden Karten nach 2 Zügen wieder umzudrehen, bzw. gefundene Pärchen zu verstecken. Das ganze sieht dann in etwa so aus (beim zweiten Zug, wenn die Karten verglichen werden):

Delphi-Quellcode:

  If Karten[x1,y2]=Karten[x2,y2] then begin

    (FindComponent('Image'+IntToStr(Karte1))
      as TImage).Picture.Hide;
    (FindComponent('Image'+IntToStr(Karte2))
      as TImage).Picture.Hide;

    If Spieler=1 then begin
    PunktzahlS1:=PunktzahlS1+1;
    TForm1.Label4.Caption:=IntToStr(PunktzahlS1);
    end else
    PunktzahlS2:=PunktzahlS2+1;
    TForm1.Label5.Caption:=IntToStr(PunktzahlS2);

  end;

Nun treten folgende Fehlermeldungen auf:

[Fehler] Memory.pas(181): Undefinierter Bezeichner: 'FindComponent'
[Fehler] Memory.pas(182): Operator ist auf diesen Operandentyp nicht anwendbar

(Zeile 181 ist in diesem Ausschnitt die zweite Zeile)

[DeddyH]

Vermutlich hast Du den Code in einer regulären Prozedur oder Funktion stehen. Mach daraus einmal eine Methode des Formulars.

[Sluak]

Zitat von DeddyH:

Mach daraus einmal eine Methode des Formulars.

Das bedeutet?

Gibt es keine andere Möglichkeit?
In anderen Prozeduren funktioniert das ganze doch auch, warum also nicht hier?

[pustekuchen]

Anstatt
procedure MethodenName() das hier
procedure Form1.MethodenName()

[DeddyH]

Nicht
procedure TuWas; sondern
procedure TForm1.TuWas; Dazu musst Du dann zusätzlich die Prozedur in der Deklaration des Formulars bekannt machen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  ...
  procedure TuWas;
  ...
  end;

[pustekuchen]

Zitat von 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.

Du solltest evnt die Methode umschreiben.

Ich weiß nicht ob es jetzt eine saubere Lösung ist oder ob es noch besser geht, aber du könntest den Sender im Bezug auf die Tag Eigenschaft benutzten.

Delphi-Quellcode:

case (Sender as TButton).Tag of
    0: choice := 0;
    1: choice := 1;
    2: choice := 2;
    3: choice := 3;
  end;