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.

markieren

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
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:

zusammenfalten · markieren

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:

markieren

Code:

			 Integer(mtFoo)=0  <->  TMyType(0)=mtFoo

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

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

markieren

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

StringToBenutzerdefinierter Typ

StringToBenutzerdefinierter Typ

Re: StringToBenutzerdefinierter Typ

Re: StringToBenutzerdefinierter Typ

Re: StringToBenutzerdefinierter Typ

Re: StringToBenutzerdefinierter Typ

Re: StringToBenutzerdefinierter Typ

Re: StringToBenutzerdefinierter Typ

Re: StringToBenutzerdefinierter Typ

Forumregeln

Jens Schumann Registriert seit: 27. Apr 2003 Ort: Bad Honnef 1.644 Beiträge Delphi 2009 Professional	#2 Re: StringToBenutzerdefinierter Typ 19. Dez 2003, 13:42 Hallo, Du könntest es mit einem Typcast machen. markieren Delphi-Quellcode: type TMeinTyp = (mtBla, mtBlub, mtIrgendwas); ... var bla: TMeinTyp; ... bla:=TMeinTyp(Ini.ReadInteger('BLABLABLA','BLA',0)); ...
	Zitat

Niels Registriert seit: 25. Okt 2003 192 Beiträge	#3 Re: StringToBenutzerdefinierter Typ 19. Dez 2003, 13:46 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
	Zitat

Niels Registriert seit: 25. Okt 2003 192 Beiträge	#5 Re: StringToBenutzerdefinierter Typ 19. Dez 2003, 14:05 Moin! THX choose... das ist genau das, was ich gesucht hab. Noch ne Frage: Was genau gibt Integer(irgendwas) zurück? MfG Niels
	Zitat

Treffnix Registriert seit: 25. Jun 2003 Ort: AC 740 Beiträge Delphi 7 Professional	#6 Re: StringToBenutzerdefinierter Typ 19. Dez 2003, 14:19 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.
	Zitat

Niels Registriert seit: 25. Okt 2003 192 Beiträge	#8 Re: StringToBenutzerdefinierter Typ 19. Dez 2003, 14:42 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
	Zitat