Typ in String umwandeln

[Baeuerle]

hallo,

ich habe folgenden typ und möchte diesen nun in einen string konvertieren (OHNE case) damit ich diesen in eine XML Datei schreiben kann.

Und wie lese ich das wieder aus wenn ich einen String habe der x den entsprechenden Wert zuweisen soll???

Delphi-Quellcode:

TFilterKinds =
    (ftNone, ftInclusive, ftExclusive);

var x: TFilterKinds;
// so soll es nicht sein da zu viel code
case x of
 ftnone:       Write('bla'); 
 ftInclusive:  Write('bla 1'); 
 ftExclusive:  Write('bla 2'); 
 end;
// So irgendwie dachte ich mir das
write(x);

thx

[FAlter]

Hi,

die Umwandlung geht auch über eine Array-Konstante. Zurück wirds wohl nur über If-Then gehen.

Delphi-Quellcode:

type
  TMyType = (myA, myB, myC);

const
  MyTypeToStr: array[myA..myC] of String = ('myA', 'myB', 'myC');

var
  X: TMyType;

...

write(MyTypeToStr[X]));

Mfg
FAlter

[Baeuerle]

warum geht das ganze z.b. mit IXMLNode.NodeValue = OleVariant

Die kann beliebige werte annehmen und auch wieder zuweisen

[Neutral General]

Hi,

Ich glaube du kannst diese Strings mit der RTTI herausbekommen. Wie genau, weiß ich aber auch nicht auswendig.

Gruß
Neutral General

[Apollonius]

In diesem Fall ist die Unit TypInfo dein Freund, insbesondere die Funktionen GetEnumName und GetEnumValue.

[rollstuhlfahrer]

HI,

ansonsten kannst du den aktuellen Wert mit Ord() erhalten. Wie du aus dem Integer wieder deinen Typ bekommst, weiß ich nicht. Das kannst du aber mit Case oder Inc/Dec versuchen.

Bernhard

[FAlter]

Hi,

Zitat von rollstuhlfahrer:

Wie du aus dem Integer wieder deinen Typ bekommst, weiß ich nicht.

Einfach ein Typecast. Größe beachten! Ord nimmt einem diese Arbeit ab, entspricht Typecast nach Byte/Word/Integer, je nach Größe des Typs.

Mfg
FAlter

[Neutral General]

Zitat von FAlter:

Hi,

Zitat von rollstuhlfahrer:

Wie du aus dem Integer wieder deinen Typ bekommst, weiß ich nicht.

Einfach ein Typecast. Größe beachten! Ord nimmt einem diese Arbeit ab, entspricht Typecast nach Byte/Word/Integer, je nach Größe des Typs.

Mfg
FAlter

Wenn ich mich richtig entsinne sind alle ordinalen Typen nur ein Byte groß. Von daher weiß ich nicht warum Ord irgendwann ein Word oder einen Integer zurückgeben sollte

[Muetze1]

Zitat von Neutral General:

Wenn ich mich richtig entsinne sind alle ordinalen Typen nur ein Byte groß. Von daher weiß ich nicht warum Ord irgendwann ein Word oder einen Integer zurückgeben sollte

Nein, Aufzählungen sind bei Delphi so groß wie nötig, können auch grösser werden. Diese Eigenart ist vor allem bei Mischprojekten in den Studios (BDS, RAD) wichtig, da dort dies zu Problemen führt. Daher gibt es dort explizit die Einstellungen der Enum-Größen in den Delphi Compileroptionen (bzw. $Z1, $Z2, $Z4).

[FAlter]

Hi,

wenn der Typ mehr als 256 verschiedene Elemente beinhaltet, ist er größer als ein Byte. Das ist allerdings äußerst selten der Fall.

Bei Mengen (set) reichen dagegen schon mehr als acht Elemente. Das kommt öfters vor.

Mfg
FAlter