case of Problem - Will auf ne Eingabe nix machen

[wurzel]

Hallo, hab en Problem.

Ich hab ein Editfeld und einen Button. Nun will ich was reinschreiben in das Edit und ein Klick auf den Button soll dann etwas ausführen. Aber das funzt bei mir nicht. Hiuer mal mein Quelltext dazu:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var eingabe : Integer;
begin
  eingabe := StrToInt(Edit1.Text);
  case eingabe of
    'solitär' := Solitr1Click(Sender: TObject);
  end;
end;

Ich hab jetzt nix auf die schnelle gefunden, was mein Problem löst.

Könnte es daran liegen, dass case irgendwas zählen will? Sollte ich vllt lieber mit if arbeiten?

[Balu der Bär]

Die case-Anweisung erwartet einen ordinalen Datentyp und kann daher Strings nicht verarbeiten. Du wirst dir daher was anderes einfallen lassen müssen.

[wurzel]

Joa, danke, der Gedanke ist mir auch grade gekommen. Werde wohl mit IF arbeiten müssen

[Balu der Bär]

Oder du guckst einfach mal hier.

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, wurzel.

Mit einer halbwegs aktuellen Delphi-Version kannst du die Funktionen AnsiIndexStr() bzw. AnsiIndexText() aus der Unit StrUtils verwenden.

Freundliche Grüße vom marabu