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:

markieren

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?

case of Problem - Will auf ne Eingabe nix machen

case of Problem - Will auf ne Eingabe nix machen

Forumregeln