Eingabefeld überprüfen, ob es "leer" ist

[marabu]

Moin -lx-.

Deine Variable Gewicht solltest du als private oder public Variable deiner Form deklarieren, der Rest der interface section deiner Form sollte tabu für dich sein. Deinen Code habe ich ein wenig umgestellt. Du lernst dabei die Routine TryToStrInt kennen und auch, dass ein IF-ELSE-IF am Ende keine Bedingung mehr braucht.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    EGramm: TEdit;
    LEinheit: TLabel;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    Gewicht:integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not TryStrToInt(EGramm.Text, Gewicht)
  or (Gewicht < 0) then
    ShowMessage('Bitte geben sie einen gültigen Wert ein')
  else if Gewicht < 50 then
    ShowMessage('Das Porto beträgt 1,70 DM')
  else if Gewicht <= 100 then
    ShowMessage('Das Porto beträgt 2,40 DM')
  else
    ShowMessage('Das Porto beträgt 3,20 DM') ;
end;

Grüße vom marabu