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;
    Label1: TLabel;
    Image1: TImage;
    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 : 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;

end.

Läuft nicht, brauch Hilfe