Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, math, jpeg, ExtCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
zahl:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
zahl := StrToInt(Edit1.Text);
case zahl
OF
1 : Showmessage('
Sehr gut');
2 : Showmessage('
Gut');
3 : Showmessage('
Befriedigend');
4 : Showmessage('
Ausreichend');
5 : Showmessage('
Mangelhaft');
6 : Showmessage('
Ungenügend');
ELSE Showmessage('
Diesen Notenwert gibt es nicht.');
end;
end;
end.
Ich hab mir das Leben schwer gemacht, im Grunde ist das ja so einfach. Die Var Zahl die ich oben Konventiert habe, sucht sich im Case dann einfach die Anweisung raus, wenn ich z.b eine 3 ins Edit Feld eingebe kommt die Showmessage Box = Befriedigend u.s.w
Das wars, Vielen Dank für eure Beiträge. Ich muß mir mal angewöhnen einfach mal 10 minuten intensiv darüber nachzudenken, dann komm ich auch selber darauf.