Hallo.
Also ich habe ein problem mit meinem kleinen Programm.
Und zwar bekomme ich es nicht hin, ein Eingabefeld zu überprüfen, ob es leer ist oder nicht.
Als Fehler gibt er immer aus, dass '' kein Integer Wert ist. Das ist klar abe rich weis nicht wie ich den vergleichbaren Wert in nen String umwandel.
Hier mal der Code:
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
Gewicht:= StrToInt(EGramm.Text) ;
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.
Mit freundlichen Grüßen