Problem mit Case

[fkerber]

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