Problem mit Case

[LoW_FloW]

Mal wieder ein typisches n00b Problem. Und zwar bei folgendem Source:

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 of   // <-- Problem
    frmMain.imgFighter1 : LetzteRichtung1 := Richtung ;
    frmMain.imgFighter2 : LetzteRichtung2 := Richtung ;
    end;
  end
//und so weiter blabla

Delphi sagt bei der Zeile: "Ordinaltyp erforderlich"
Ich hab keine Ahnung was ich falsche gemacht habe

Für Hilfe bin ich sehr dankbar

[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

[LoW_FloW]

Zitat von fkerber:

function JumpFighter(Image : TImage ; Richtung: string) : string ; Musst dann halt die Eigenschaft Tag von Image entsprechend setzen.

Image ist in der Funktion drin und kein ?Teil? auf dem Formular,

aber trotzdem http://www.its-only-us.de/phpBB2/ima...les/6thanx.gif

[dizzy]

Aber du übergibst doch sicherlich ein Image das auf dem Formular liegt! Dort ist latürnicht auch der entsprechende Wert von "Tag" dabei.

Was das Problem bei "case" in Verbindung mit Strings angeht, rate ich die OH zu Rate zu ziehen. Tipp: "case" kann nur ordinale Typen verarbeiten.


gruss,
dizzy

[LoW_FloW]

Zitat von dizzy:

Aber du übergibst doch sicherlich ein Image das auf dem Formular liegt! Dort ist latürnicht auch der

Stimmt Sorry