Variablen in Bezeichner integrieren

[MTB1Leo]

Hallo,

Ich würde gern in einen Bezeichner eine Variable einbauen, da je nach der Höhe des Variablenwerts ein anderes Objekt gewählt werden soll.

Code: Alles auswählen

 
begin
  if TW_ZB=10 then begin Info.Caption:='Das ist technisch nicht möglich.'; T_MEL.Enabled:=true; end
  else
  begin
  if TW_ZB<10 then begin
 
  TW_ZB_[TW_ZB].Left:=SpX;
  TW_ZB_[TW_ZB].Top:=SpY;
  TW_ZB_[TW_ZB].Top:=SpY;
  TW_ZB_[TW_ZB].Picture.LoadFromFile('gfx/stockboden.png');
 

Wenn ich die Variable wie oben einfach einklammere erhalte ich eine Fehlermeldung.

Als Alternative würde mir nur eine if-Verzweigung einfallen, welche immer den Wert der Variablen abfragt. Das ist aber relativ aufwendig.


Gibt es einen einfacheren Weg?


Danke!

MTB1Leo

[Socke]

Versuchs mal mit FindComponent(). Anstatt Form1 musst du natürlich das Formular verwenden, auf dem du die Komponenten platziert hast.

Code: Alles auswählen

var
  cmp: TComponent;
begin
  cmp := Form1.FindComponent('TW_ZB_'+IntToStr(TW_ZB));
  if cmp is TControl then
  begin
    TControl(cmp).Left := SpX;
    // usw.
  end;

[MTB1Leo]

Vielen Dank!

MTB1Leo

[MTB1Leo]

Die Prozedur selbst hat soweit funktioniert.
Wenn ich jedoch

Code: Alles auswählen

 
TControl(cmp).Picture.LoadFromFile('gfx/stockboden.png'); 
 

eingebe, bekomme ich folgende Fehlermeldung:
unit1.pas(926,17) Error: identifier idents no member "Picture"

Das Bild ist praktisch das Objekt, welches oben auf SpX und SpY gesetzt werden soll.

[m.fuchs]

Wie kommst du darauf, dass TControl eine Eigenschaft namens Picture besitzt? Dafür musst du schon etwas anderes nehmen, ein TImage zum Beispiel.

[MTB1Leo]

Also ich habe TControl sowohl in TImage als auch in den Bezeichner des Bildes verändert. Es ging beides nicht.

Ich füge jetzt hier nochmal den gesamten Quelltext der Prozedur ein.

var cmp: TComponent; habe ich im oberen Teil eingefügt.

Code: Alles auswählen

 
procedure TForm1.IM_ASClick(Sender: TObject);
begin
 
  if SO_HO=0 then begin Info.Caption:='Du hast keine Äste!';T_MEL.Enabled:=true; end
 
else
 
 begin
 cmp := IM_AS.FindComponent('T_ZB_'+IntToStr(TW_ZB));
 
if cmp is TImage then
begin
 
TImage(cmp).Left:=SpX;
TImage(cmp).Top:=SpY;
TImage(cmp).Picure.LoadfromFile('gfx/stockboden.png'); //Hier kommt der Fehler beim kompilieren.
 
TW_ZB:=TW_ZB+1;
SO_HO:=SO_HO-1;
 
SO_INP;
Info.Caption:= 'Du hast diese Stelle markiert.';
T_MEL.Enabled:=true;
end
 
end;
end;
 

Ist da noch irgendwo ein Fehler drin?

[Michl]

Bei

Code: Alles auswählen

TImage(cmp).Picure.LoadfromFile('gfx/stockboden.png');

fehlt vor allem das "t" in Picture.

[MTB1Leo]

Bei

Code: Alles auswählen

TImage(cmp).Picure.LoadfromFile('gfx/stockboden.png');

fehlt vor allem das "t" in Picture.

Wie peinlich

Danke vielmals!