Variable

[Wheelie]

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

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

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

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