Hallo,
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
zahl := StrToInt(Edit1.Text);
case zahl OF
1 : zahl := Showmessage('Sehr gut');
2 : zahl := Showmessage('Gut');
3 : zahl := Showmessage('Befriedigend');
4 : zahl := Showmessage('Ausreichend');
5 : zahl := Showmessage('Mangelhaft');
6 : zahl := Showmessage('Ungenügend');
ELSE zahl := Showmessage('Diesen Notenwert gibt es nicht.');
end;
Was hast Du den für eine Fehlermeldung. Eventuell das die Var. nicht existiert.
dann.. SO
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
zahl : integer;
begin
zahl := StrToInt(Edit1.Text);
...
[EDIT] Da war ja einer schneller, hab gar keinen roten Kasten gehabt
Gruß Jens