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

[Neutral General]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    EGramm: TEdit;
    LEinheit: TLabel;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Gewicht: Integer ;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
Gewicht:= StrToInt(EGramm.Text);
except
ShowMessage('Im Edit steht keine Zahl!');  // das hier hinzufügen
exit;
end;

If Gewicht = ''  Then
begin
    ShowMessage('Bitte geben sie einen Wert ein') ;
    exit ;
end

Else If Gewicht < 50 Then
begin
    ShowMessage('Das Porto beträgt 1,70 DM') ;
end

Else If (Gewicht >= 50 ) And (Gewicht <= 100) Then
begin
    ShowMessage('Das Porto beträgt 2,40 DM') ;
end

Else If Gewicht > 100 Then
begin
    ShowMessage('Das Porto beträgt 3,20 DM') ;
end;
end;

end.

du musst mit einem Try-Except block gucken obs im Edit eine Zahl steht.. wenn keine Zahl drin steht dann wird Gewicht:= StrToInt(EGramm.Text); nicht funktionieren.. und bei diesem try-except block wird dann halt die Nachricht angezeigt das keine Zahl im Edit steht.