StringToBenutzerdefinierter Typ

[Niels]

Moin!

Ich hab folgendes Problem. Ich definiere mir einen Datentyp...beispielsweise so:

Delphi-Quellcode:

type
  TMeinTyp = (mtBla, mtBlub, mtIrgendwas);

...

var
  bla: TMeinTyp;

Jetzt les ich aus einer Ini-Datei die Information aus und will diese auf meine Variable bla zuordnen. Wenn ich das mit ReadString mach kann ich den Rückgabewert ja (logischerweise) nicht auf bla zuweisen. Momentan hab ich einfach ne Zahl in der Ini und wandle das dann mit Hilfe einer Prozedur um. Geht das auch einfach mit irgend einer Zuweisung?

MfG Niels

[Jens Schumann]

Hallo,
Du könntest es mit einem Typcast machen.

Delphi-Quellcode:

type
  TMeinTyp = (mtBla, mtBlub, mtIrgendwas);

...

var
  bla: TMeinTyp;
...
  bla:=TMeinTyp(Ini.ReadInteger('BLABLABLA','BLA',0));
...

[Niels]

Moin!

Danke, aber so mach ich's bisher ja auch (hab ich übrigens geschrieben). Gibt's ne andere Variante oder muss ich den Umweg gehen?`

MfG Niels

[choose]

Hallo Niels,
wenn ich Dich richtig verstanden habe, möchtest Du etwas in der Art

Delphi-Quellcode:

bla:= StringToBenutzerdefinierterTyp('mtBla');

haben.

Das lässt sich zwar mit der RTTI erreichen, dieser Bereich ist allerdings nur spärlich in der OH oder den Handbüchern beschrieben ist. Deshalb hier etwas Source-Code:

Delphi-Quellcode:

uses
  TypInfo;

type
  TMyType = (mtFoo, mtBar);

function StringToMyType(const AString: String): TMyType;
begin
  Result:= TMyType(GetEnumValue(TypeInfo(TMyType), AString));
end;

function MyTypeToString(const AValue: TMyType): string;
begin
  Result:= GetEnumName(TypeInfo(TMyType), Integer(AValue));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  myVar: TMyType;
begin
  myVar:= StringToMyType('mtFoo');
  Showmessage(MyTypeToString(myVar));
end;

[Niels]

Moin!

THX choose... das ist genau das, was ich gesucht hab.

Noch ne Frage: Was genau gibt Integer(irgendwas) zurück?

MfG Niels

[Treffnix]

Damit weist du der Variable "irgendwas" den Typ Integer zu. Und den gibt es dann sozusagen auch zurück. also Integer ( 4 ) ist 4. Steht in der Variable kein Integerwert, kanns aber mächtig dabei knallen.

[choose]

Typisierte ordinaltypen werden intern behandelt wie normale Ordinaltypen. Daher ist es generell möglich diese Typen in beide Richtungen zu casten:

Code:

 Integer(mtFoo)=0  <->  TMyType(0)=mtFoo
 Integer(mrBar)=1  <->  TMyType(1)=mtBar

Interessant wird diese Betrachtung, wenn man sich überlegt, dass

Delphi-Quellcode:

type
  TMySet = set of TMyType;

Tatsächlich einem "Strom" von Bits entspricht, wobei dann das nullte Bit (mtFoo) entspricht, usw

Beachten solltest Du noch, dass GetEnumValue den Wert -1 zurückgibt, falls der Identifier nicht zugeordnet werden konnte, der Cast selbst (Integer(GetEnumValue(...))) macht hier keine weiteren Prüfungen!

[Niels]

Moin!

Dass es -1 zurückgibt hab ich schon gemerkt, als ich grad n bissel die Funktion getestet hab. Dass jeder Auswahlmöglichkeit meines Typ sozusagen ein Index zugeordnet ist wusste ich noch nicht. Danke für deine Hilfe.

MfG Niels