Hi!
Probier mal das hier:
Delphi-Quellcode:
function JumpFighter(Image : TImage ; Richtung: string) : string ;
var
LetzteRichtung1, LetzteRichtung2 : string ;
i : integer ;
begin
// Normalfall, bei ShowFighter:
if Richtung <> '' then begin
case Image.tag of // <-- Problem
0 : LetzteRichtung1 := Richtung ;
1: LetzteRichtung2 := Richtung ;
end;
end
Musst dann halt die Eigenschaft Tag von Image entsprechend setzen.
Ciao fkerber