String-Aufzählungen

[Helmi]

Hallo,

ich programmier gerade eine Komponente und steh vor einem Problem :wall:

kurze Erklärung

ich eine eine Type:

Code:

type
  TIrgendwas = (Irgendwas_1, Irgendwas_2, Irgendwas_3);

und unter private:

Code:

private
  FIrgendwo: TIrgendwas;
  
  procedure Setirgendwo(Value: TIrgendwas);

die Type frag ich in einer property ab:

Code:

property Irgendwo: TIrgendwas read FIrgendwo write SetIrgendwo default Irgendwas_2;

mein Problem ist nun dass ich diese Aufzählung im Type als String brauche,
das ich aber gleichzeitig in der property abfragen kann, so wie oben.

Ich hoffe das war einigermassen verständlich für die Uhrzeit :-)

Vielleicht kann mir ja jemand helfen...

mfg
Helmi

[Christian Seehase]

Moin Helmi,

an welcher Stelle bzw. in welchem Zusammenhang brauchst Du den String.
Ggf. such' hier mal nach RTTI (Run Time Type Information).

[MrKnogge]

Servus Helmi,

andernfalls musst du dir eine eigne funktion schreiben:

Delphi-Quellcode:

function IrgendwasToStr(x: TIrgendwas): string;
begin
case x of
  Irgendwas_1 : result := 'Irgendwas_1';
  Irgendwas_2 : result := 'Irgendwas_2';
  ....
end;