Type in INI sichern?

[moelski]

Moin !

Ich habe da diesen Typen:

Delphi-Quellcode:

type TLVDeviceID = ( ID_Test1, ID_Test2, ID_Test3 );

Diesen würde ich gerne in einer INI Datei sichern und auch wieder laden.
Geht das? Und wenn ja wie?

[holliesoft]

Hi,

ich würde das so machen:

Delphi-Quellcode:

var x: integer;
LVDeviceID: TLVDeviceID;

//schreiben
x := ord (LVDeviceID);
ini.WriteInteger ('foo', 'LVDeviceID', x);

//lesen
x := ini.ReadInteger ('foo', 'LVDeviceID', 1);
LVDeviceID := TLVDeviceID(x);

[marabu]

Hallo,

noch eine Alternative:

Delphi-Quellcode:

type
  TLVDeviceID = ( ID_Test1, ID_Test2, ID_Test3 );
var
  devId: TLVDeviceID;
begin
  devID := ID_Test2;
  ini.WriteString( 'settings', 'LVDeviceID', 
    {TypInfo.}GetEnumName(TypeInfo(TLVDeviceID), Ord(devId))
  );
end;

Grüße vom marabu

[moelski]

Moin !

Ok, das wegschreiben geht super, aber wie kriege ich es retour?

Delphi-Quellcode:

  Temp  := DeviceINI.ReadString( 'settings', 'LVDeviceID', '');
devID := GetEnumValue(TypeInfo(TLVDeviceID), Temp);

So gehts nicht. Dann sagt er Integer und TLVDeviceID sind Inkompatibele Typen. (Hat er sogar recht :D )

[moelski]

Ok ich habs schon ...

Temp ist Integer ...

Delphi-Quellcode:

Temp  := GetEnumValue(TypeInfo(TLVDeviceID), DeviceINI.ReadString( 'settings', 'LVDeviceID', ''));
devID := TLVDeviceID(Temp);

Danke trotzdem für die Infos !