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.

[EWeiss]

Hatte vergessen AStatus zu definieren.

Die Lösung ist aber trotzdem nicht korrekt (Oder ich irre mich auch) ;)
AStatus ist ja nicht initialisiert.

Wenn ich nun wie du AStatus definiere dann ist aber bei einem Auftretenden Fehler
AStatus immer GenericError.

Das möchte ich aber nicht sondern den realen wert ;)
bsp. Win32Error

gruss

[Union]

Wie wäre es mit etwas Kontext?

[Uwe Raabe]

Zitat:

Zitat von EWeiss (Beitrag 1365721)

Wenn ich nun wie du AStatus definiere dann ist aber bei einem Auftretenden Fehler
AStatus immer GenericError.

Das möchte ich aber nicht sondern den realen wert ;)
bsp. Win32Error

Dann übergib doch anstatt AStatus den realen Wert...

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1365723)

Zitat:

Zitat von EWeiss (Beitrag 1365721)

Wenn ich nun wie du AStatus definiere dann ist aber bei einem Auftretenden Fehler
AStatus immer GenericError.

Das möchte ich aber nicht sondern den realen wert ;)
bsp. Win32Error

Dann übergib doch anstatt AStatus den realen Wert...

Wenn das alles so einfach wäre wie ihr sagt.
Ich frage ja nicht umsonst. ;)

Gebe ich den Realen wert ein der mit meiner Funktion übergeben wird

Delphi-Quellcode:

function TfrmMain.SaveToPNG(FullName: PWideChar; img: GPImage): GPStatus;

in dem Fall Result
Dann bekomme ich vom Compiler die Meldung das Result möglicherweise nicht initialisiert ist.

EDIT:
Ok denke sollte dann
Result:= GenericError; voran stellen.
Dann geht's. :) :wall: :duck:

Danke.


grussa

[Ghostwalker]

Zitat:

Zitat von EWeiss (Beitrag 1365707)

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

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

Delphi-Quellcode:

_(cStatus[status]);

Hier mal mit der Gnugettext-Funktion.

oder in dem Fall das es das Funktionsergebnis ist

Delphi-Quellcode:

ShowMessage(_(cStatus[SaveToPng(...)]));

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

[EWeiss]

Zitat:

Nein...TStatus wird ja nicht geändert.

Ach so ja dann sollte es kein Problem sein.

Habe aber im Moment den ein Zeiler von Union genommen klappt ganz gut.
So muss ich nicht die API verändern.

Trotzdem Danke.

gruss

[Zacherl]

Zitat:

Zitat von EWeiss (Beitrag 1365745)

Habe aber im Moment den ein Zeiler von Union genommen klappt ganz gut.

Die andere (schönere) Lösung kannst du aber auch problemlos verwenden ohne die Unit mit der GDI+ API zu modifizieren. Deklarier das String-Array doch einfach in deiner eigenen Unit.

[EWeiss]

Zitat:

Zitat von Zacherl (Beitrag 1365747)

Zitat:

Zitat von EWeiss (Beitrag 1365745)

Habe aber im Moment den ein Zeiler von Union genommen klappt ganz gut.

Die andere (schönere) Lösung kannst du aber auch problemlos verwenden ohne die Unit mit der GDI+ API zu modifizieren. Deklarier das String-Array doch einfach in deiner eigenen Unit.

JO das wäre auch eine Möglichkeit ;)
Edit:
Habe es übernommen feine Sache..

Danke Uwe.

gruss