Variable

[LoW_FloW]

Wie heißt die Variable für eine Komponente? So wie TImage für ein Image ist. Ich will das so machen:

Delphi-Quellcode:

for i := 1 to kA do
VariablefürKomponente := (findcomponent('Img'+inttostr(i)) as TImage).Left / oder was anderes mit Findcomponetne  ;

[edit=sakura] Titel orthographisch nachgebessert. Mfg, sakura[/edit]

[Matze]

Was willst du denn genau erreichen?

Mir wird dein Problem noch nicht ganz klar.

Nachtrag: Du kannst natürlich Variablen vom Typ TImage erstellen, und ein Image dynamisch erzeugen..

[lorenz]

Hallo Low Flow!

Ich denke mal, das liegt ganz daran, was du in Name schreibst. Von der Standarteinstellung her wird allerdings immer das T weggelassen und hinten die laufende Nummer angehängt.

MfG

Lorenz

[LoW_FloW]

Ursprünglich wollte ich folgendes machen:

Delphi-Quellcode:

procedure ShowFighter(Image : string; Richtung : string);
begin
(FindComponent(Image) as TImage.Picture).LoadFromFile('Bilder/Rechts.bmp');
end;

Aber das ist gescheitert. Deshalb will ich anstatt das alles in einen Befehl zu packen, das so machen:

Delphi-Quellcode:

procedure ShowFighter(Image : string; Richtung : string);
var
Fighter : VarfürbeliebigeKomponentedieichnichtweiß ;
begin
Fighter := FindComponent(Image) as TImage.Picture).
FighterLoadFromFile('Bilder/Rechts.bmp');
end;

ich weiß ja nicht ob das klappt weiß jemand was besseres ? Und wenn das gehen würde, bräuchte ich halt den Namen für die Variable einer Komponente

[Wheelie]

TComponent

So muss deine Prozedur aussehen, damit alles funktioniert:

Delphi-Quellcode:

procedure ShowFighter(Image, Richtung: String);
var Fighter: TComponent;
begin
  Fighter := FindComponent(Image);
  (Fighter as TImage).Picture.LoadFromFile('Bilder\' + Richtung + '.bmp');
end;

[zecke]

kann man ein ü im variablennamen haben?

edit: oder war das nur beispielhaft ^^ ??
wenn bsp. ok wenn nicht dann andrer namen =)

[Luckie]

Nein.

[LoW_FloW]

Zitat von Wheelie:

TComponent

So muss deine Prozedur aussehen, damit alles funktioniert:

Delphi-Quellcode:

procedure ShowFighter(Image, Richtung: String);
var Fighter: TComponent;
begin
  Fighter := FindComponent(Image);
  (Fighter as TImage).Picture.LoadFromFile('Bilder\' + Richtung + '.bmp');
end;

Wenn ich das so mache, kommt: Undefinierter Bezeichener: Find Component

[himitsu]

Du suchts ein Image (vom Typ TImage)

Delphi-Quellcode:

procedure ShowFighter(Image, Richtung: String); 
var Fighter: TImage; 
begin 
  Fighter := (FindComponent('Image1') as TImage);
  // als Suchbegriff muß der Name der zu suchenden Komponente eingegeben werden
  // dieser steht in der Eigenschaft NAME der Komponente !!!

  Fighter.Picture.LoadFromFile('Bilder\' + Richtung + '.bmp'); 
end;

Um den Namen der Komponente rauszufinden, schau mal in den OI

[LoW_FloW]

Irgendwie bin ich
Der Source ist:

Delphi-Quellcode:

procedure ShowFighter(Image : TImage ; Richtung: String);
begin
  Image.Picture.LoadFromFile('Bilder\Grade.bmp');
end;

Damit ist der Fall abgeschlossen. Tut mir leid, das ich euch mit so einem Schwachsinn genervt habe