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