Variable

[Wheelie]

Zitat:

Zitat von LoW_FloW

Zitat:

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

Kann dir auch sagen warum! Du musst die Prozedur im Interface-Teil "ankündigen" (schreibe ich heute im Forum glaube schon zum dritten Mal und ich weiß auch, dass das Wort "ankündigen" an dieser Stelle eigentlich falsch ist :mrgreen:).

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure ShowFighter(Image, Richtung: String);

Delphi-Quellcode:

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

[Wheelie]

Zitat:

Zitat von LoW_FloW

Irgendwie bin ich :wall: :!: :!: :!:
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 :roll:

Stimmt ... war so blind, dass ich nicht mal auf so einen einfachen Scheiß gekommen bin :mrgreen: :wall: