Edit Feld auf Null Prüfen

[Zeb22]

Delphi-Quellcode:

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin

 zahl1 := TryStrToFloat(Edit1.Text);

 if edit1.Text = ''
  then
   begin
    Showmessage('Geben Sie bitte einen Wert ein');

    end;


 if zahl1 = 4
  then begin
   ShowMessage('Genau richtig');
   end
   else
   if zahl1 < 4
    then
     begin
     showmessage('viel zu klein');
   end else
   if zahl1 > 4
      then begin
     showmessage('viel zu groß');
      end
end;

So?