Edit Feld auf Null Prüfen

[Zeb22]

Ich möchte das Edit Feld auf Null prüfen. Oder besser gesagt, wenn keine Eingabe in das Edit Feld eingeht, soll das System nicht gleich abrechen, wenn man den Button betätigt.

Brauch Hilfe.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type Werte = Array[1..30,1..3] of string;

var
  Form1: TForm1;
  zahl1 : double;
  n: integer;
  ard: Werte;



implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin

 zahl1 := StrToFloat(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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;

end;

end.

[mkinzler]

StrToFloatDef() oder TryStrToFloat() verwenden

[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?

[DeddyH]

Nö, so nicht.

Zitat von Delphi-Hilfe:

Konvertiert einen angegebenen String in einen Gleitkommawert mit einem booleschen Erfolgscode.

Pascal

Delphi-Quellcode:

function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Extended; const FormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double; const FormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single; const FormatSettings: TFormatSettings): Boolean; overload;

C++

Code:

Boolean TryStrToFloat(const AnsiString S, Extended Value);
Boolean TryStrToFloat(const AnsiString S, Extended Value, const TFormatSettings FormatSettings);
Boolean TryStrToFloat(const AnsiString S, Double Value);
Boolean TryStrToFloat(const AnsiString S, Double Value, const TFormatSettings FormatSettings);
Boolean TryStrToFloat(const AnsiString S, Single Value);
Boolean TryStrToFloat(const AnsiString S, Single Value, const TFormatSettings FormatSettings);

Datei
SysUtils

Beschreibung
Mit TryStrToFloat kann der String S in einen Gleitkommawert konvertiert werden. S muss ein optionales Vorzeichen (+ oder –), einen String mit Ziffern und einem optionalen Dezimaltrennzeichen und einer optionalen Mantisse. Die Mantisse setzt sich aus 'E' oder 'e', einem optionalen Vorzeichen und einer ganzen Zahl zusammen. Leerzeichen am Anfang und Ende werden ignoriert.

Die globale Variable DecimalSeparator definiert das Zeichen, das als Dezimaltrennzeichen verwendet werden muss. Tausendertrennzeichen und Währungssymbole sind nicht zulässig. Wenn S keinen gültigen Wert enthält, gibt TryStrToFloat den Wert Default zurück.

TryStrToFloat stellt das Ergebnis in Value und gibt bei erfolgreicher Konvertierung den Wert true zurück, ansonsten false.

Die ersten drei Formen von TryStrToFloat sind nicht Thread-sicher, da die landesspezifischen Informationen der globalen Variablen verwendet werden. Den Thread-sicheren zweiten drei Formen werden die landesspezifischen Informationen im Parameter FormatSettings übergeben. Bevor Sie diese Formen von TryStrToFloat aufrufen, müssen Sie die Informationen in den Parameter FormatSettings schreiben. Die landesspezifischen Standardinformationen können FormatSettings mit GetLocaleFormatSettings zugewiesen werden.