String zu Typ

[SimonRap]

Hi Leute,
ich bins schonwieder^^

Ich hab folgendes allgemeines Problem:
Ich hab erstma:

Delphi-Quellcode:

Type
TIrgendeinTyp=(Typ1,Typ2);
...
VAR
MeinTyp:TIrgendeinTyp;
...

Jetzt hab ich ne Combobox, die als Items (TStrings glaub ich) nur 'Typ1' und 'Typ2' hat (Style is csDropDownList also kann man die als user net ändern!).
Ich will jetzt aus dieser Combobox das ausgewählte (STRING) als mein Typ (MeinTyp) haben...

MeinTyp:=combobox1.text; geht net, sind ja verschiedene Typen...
Jetzt meine Frage:
kann man ir-wie ne Typenumwandlung oda so machen, damit das so klappt? (So was wie StrToMeintyp^^)
Bitte nich meckern, dass ich so was einfaches nich hinkriege... ich hab nich wirklich Ahnung von Programmieren
Thx schonma im voraus^^

mfg simon

[SirThornberry]

Verwende doch einfach den ItemIndex der Combobox. Dann brauchst du keine aufwändige Stringumwandlung.

[SimonRap]

Zitat von SimonRap:

Bitte nich meckern, dass ich so was einfaches nich hinkriege... ich hab nich wirklich Ahnung von Programmieren

Ok... WAS?^^

Also der Index is doch INTEGER, check ich net wirklich, wie ich das machen soll

Bitte ma für ganz doofe^^

[SirThornberry]

Dein TIrgendeinTyp ist ein Enum was intern (im Speicher) nichts anderes ist als eine Zahl.
In deinem Beispiel ist also Typ1=0 und Typ2=1 (enums fangen, sofern nicht anders angegeben, immer bei 0 an)
Wenn jetzt in der Combobox also der erste Eintrag (also eigentlich der nullte) gewählt wurde, so ist ItemIndex=0 und somit wäre das Typ1

Also:
deineVariable=TIrgendeinTyp(Combobox.ItemIndex); Der Quelltext ist nicht getestet aber so in etwa sollte das funktionieren.

[SimonRap]

ahhhh....
nich nur dass es funktioniert, ich habs sogar bissel verstanden^^
thx thx thx thx thx thx usw.^^

[SimonRap]

Nur mal so aus Interesse:
Wie würde das denn mit der

Zitat von SirThornberry:

aufwändigen Stringumwandlung

gehen?

[Panthrax]

Zitat von SimonRap:

Nur mal so aus Interesse:
Wie würde das denn mit der

Zitat von SirThornberry:

aufwändigen Stringumwandlung

gehen?

So:

Delphi-Quellcode:

uses
  TypInfo;

type
  TEnum = (enEins, enZwei, enDrei);

var
  Value: TEnum;
  S: String;
  
begin
  Value := enZwei;
  S := GetEnumName(TypeInfo(TEnum), Integer(Value));
  WriteLn(S);
  Value := GetEnumValue(TypeInfo(TEnum), S); // nur um es zu zeigen...
  WriteLn(Value);
end;

[SimonRap]

variante nr. 1 is eindeutig die kürzere, ich bleib lieber bei der^^
aber trotzdem thx fürs erklären

[Panthrax]

VariableDeinesTyps := TDeinTyp(GetEnumValue(TypeInfo(TDeinTyp), Stringvariable)); Ist nicht wirklich länger!? Allein mit einer harten Typumwandlung bist Du darauf angewiesen, dass der Eintragsindex die Deklarationsreihenfolge ausdrückt; mit GetEnumValue wird Dir das nicht auf die Füße fallen.

Teile und herrsche.

[SirThornberry]

da hat Panthrax recht. Vorteil vom direkten Cast ist allerdings das in der Combobox nicht die gleichen Bezeichnungen stehen müssen, sondern für den Menschen verständlichere Bezeichnungen gewählt werden können.