Viele stört es, dass man nur Variablen vom Typ Char in einer Case-Abfrage nutzen kann. Aber: in Delphi braucht man keine Hundert-if-Abfragen zu machen. Und so gehts:
Delphi-Quellcode:
uses {...}, TypInfo, {...};
type
TSuchmaschine = (tcv_Lycos, tcv_Google, tcv_Yahoo, tcv_Fireball);
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := ComboBox1.Text;
case TSuchmaschine(GetEnumValue(TypeInfo(TSuchmaschine), 'tcv_' + S)) of
tcv_Lycos: ShowMessage('http://www.lycos.de');
tcv_Google: ShowMessage('http://www.google.de');
tcv_Yahoo: ShowMessage('http://www.yahoo.de');
tcv_Fireball: ShowMessage('http://www.fireball.de');
else
ShowMessage('Keine Suchmaschine angegeben');
end;
end;
Dabei ist die Groß- und Kleinschreibung egal!
Quelle:
http://www.swissdelphicenter.ch
Chris1308