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;

Delphi-Quellcode:

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:

Zitat von hoika (Beitrag 1365700)

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:

Zitat von hoika (Beitrag 1365704)

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:

Delphi-Quellcode:

cStatus[status]

darauf zugreifen.

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

[EWeiss]

Zitat:

Zitat von Ghostwalker (Beitrag 1365706)

Oder ohne RTTI:

Delphi-Quellcode:

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

und dann einfach über:

Delphi-Quellcode:

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:

Delphi-Quellcode:

GetEnumName(TypeInfo(TStatus), Integer(AStatus));

[EWeiss]

Zitat:

Zitat von Union (Beitrag 1365714)

Sollte in etwa so gehen:

Delphi-Quellcode:

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.