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?