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;