Frage zu GetEnumValue

[Niels]

Hallo,

hier mal ein Beispiel um meine Frage verständlicher zu machen:

Delphi-Quellcode:

type
  TMeinTyp = (mtA, mtB, mtC);

procedure bla(x: string);
var
  hilf: TMeinTyp;
begin
  hilf := TMeinTyp(GetEnumValue(TypeInfo(TMeinTyp), x));
  ...
end;

Mein Problem liegt jetzt darin, wenn x weder mtA, noch mtB oder mtC ist. Wenn ich Debugge steht da:

Code:

hilf = (out of bound) -1

Wie kann ich jetzt abfragen ob das nun -1 ist.

Delphi-Quellcode:

if hilf = -1 then

funktioniert nicht, da -1 nicht vom Typ TMeinTyp ist? Der einzige wichtige Fall ist aber, wenn hilf = -1.

mfg Niels

[Robert Marquardt]

Was steht denn in x drin?

[mirage228]

Zitat:

Zitat von Niels

Hallo,

hier mal ein Beispiel um meine Frage verständlicher zu machen:

Delphi-Quellcode:

type
  TMeinTyp = (mtA, mtB, mtC);

procedure bla(x: string);
var
  hilf: TMeinTyp;
begin
  hilf := TMeinTyp(GetEnumValue(TypeInfo(TMeinTyp), x));
  ...
end;

Mein Problem liegt jetzt darin, wenn x weder mtA, noch mtB oder mtC ist. Wenn ich Debugge steht da:

Code:

hilf = (out of bound) -1

Wie kann ich jetzt abfragen ob das nun -1 ist.

Delphi-Quellcode:

if hilf = -1 then

funktioniert nicht, da -1 nicht vom Typ TMeinTyp ist? Der einzige wichtige Fall ist aber, wenn hilf = -1.

mfg Niels

Hoi,

proviers mal so ;)

Delphi-Quellcode:

procedure bla(const x: string);
var
  hilf: Integer;
  wert: TMeinTyp;
begin
  hilf := GetEnumValue(TypeInfo(TMeinTyp), x);
  if hilf = -1 then
     ... else
  wert := TMeinTyp(hilf);
end;

mfG
mirage228

[Niels]

Hi,

danke ...funktioniert prima. Hätte ich eigentlich auch selbst drauf kommen können :duck:

mfg Niels