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