GPStatus als string

[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));

[Ghostwalker]

Zitat von 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

Nein...TStatus wird ja nicht geändert. Du definierst dir einfach eine typisierte Konstante mit den benötigten Strings. Du benutzt einfach den Status (TStatus) als Index auf dein Konstanten-Array. Drops gelutscht.

Sowas kann man dann z.B. einfach internationalisieren

_(cStatus[status]); Hier mal mit der Gnugettext-Funktion.

oder in dem Fall das es das Funktionsergebnis ist

ShowMessage(_(cStatus[SaveToPng(...)])); Du kannst das ganze auch über ordinale Werte handhaben (ord(SaveToPng) bzw. IntToStr(SaveToPing)). Wär aber etwas umständlich imho.