GPStatus als string

[EWeiss]

Ist wieder spät da klappt wieder gar nichts.

Wie kann ich den Status von GPStatus als Text ausgeben (string)

Delphi-Quellcode:

type

  Status = (
    Ok,
    GenericError,
    InvalidParameter
  );
  TStatus = Status;

GpStatus = TStatus;

ohne die ganze type wieder zu parsen.

gruss

[hoika]

Hallo,
das sollte über RTTI gehen

http://docwiki.embarcadero.com/RADSt...r_Simple_Types

Stichwort Enumeration Types

[EWeiss]

Zitat von hoika:

Hallo,
das sollte über RTTI gehen

http://docwiki.embarcadero.com/RADSt...r_Simple_Types

Stichwort Enumeration Types

Danke.
Die frage die da wäre unter D2010 anwendbar?

gruss

[hoika]

Hallo,
ja, der Code läuft auch unter D2007,
muss ich nachher mal raussuchen.

[EWeiss]

Zitat von hoika:

Hallo,
ja, der Code läuft auch unter D2007,
muss ich nachher mal raussuchen.

Das wäre nett Danke dir.

gruss

[Ghostwalker]

Oder ohne RTTI:

Delphi-Quellcode:

Const
  cStatus : Array[TStatus] of String = (
   'Ok',
   'GenericError',
   'InvalidParameter'
  );

und dann einfach über:

cStatus[status] darauf zugreifen.

Läuft unabhängig von der Delphi-Version und sauber internationalisiert werden

[EWeiss]

Zitat von Ghostwalker:

Oder ohne RTTI:

Delphi-Quellcode:

Const
  cStatus : Array[TStatus] of String = (
   'Ok',
   'GenericError',
   'InvalidParameter'
  );

und dann einfach über:

cStatus[status] darauf zugreifen.

Läuft unabhängig von der Delphi-Version und sauber internationalisiert werden

könnte ich machen..
Aber dann ändere ich die GDIP_API Unit.
Was bedeutet ich muss alle Funktionen die auf GPStatus zugreifen wieder ändern. Oder?

gruss

[Union]

Sollte in etwa so gehen:
GetEnumName(TypeInfo(TStatus), Integer(AStatus));

[EWeiss]

Zitat von Union:

Sollte in etwa so gehen:
GetEnumName(TypeInfo(TStatus), Integer(Status));

nicht wirklich.

Zitat:

[DCC Fehler] uMain.pas(304): E2029 '(' erwartet, aber ')' gefunden

Bei Status.

gruss

[Union]

TypInfo in den uses?

Delphi-Quellcode:

program RttiToString;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Rtti,
  System.TypInfo;

type

  Status = (
    Ok,
    GenericError,
    InvalidParameter
  );
  TStatus = Status;

var
  AStatus : TStatus;

begin
  try
    AStatus := GenericError;
    Writeln(
      GetEnumName(TypeInfo(TStatus), Integer(AStatus))
    );
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.