Ergebnis der Suchanfrage

• Forum: Library: Object-Pascal / Delphi-Language

  Strings bei einer Case-Abfrage nutzen

    Delphi
    by CalganX, 27. Jul 2002
  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:
  uses {...}, TypInfo, {...};
  
  type
  TSuchmaschine = (tcv_Lycos, tcv_Google, tcv_Yahoo, tcv_Fireball);
  procedure TForm1.Button1Click(Sender: TObject);
  var
  s: string;
  begin
  s := ComboBox1.Text;