Case

[Zeb22]

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.