Frage zu StrToFloat

[Hansi]

Hallo zusammen,

Wie kann ich die Fehlermeldung bei StrToFloat(Edit-Feld: Wenn der Nutzer keine Eingabe macht!) verhindern? Ich muss die Eingabe die der Nutzer macht als Float in die DB schreiben.

Vielen Dank...

[ManuMF]

try..except oder StrToFloatDef

Delphi-Quellcode:

try
  Zahl := StrToFloat(Edit.Text);
except
  Showmessage('Fehlerhafte Eingabe!');
  Edit.SetFocus;
  exit;
end;

// Oder

Zahl := StrToFloatDef(Edit.Text, 0);
If (Zahl = 0) then
begin
  Showmessage('Fehlerhafte Eingabe!');
  Edit.SetFocus;
  exit;
end;

Gruß,
ManuMF

[Matze]

Neuere Delphi-Versionen unterstützen auch TryStrToFloat.

[Hansi]

Hallo ManuMF,

Danke für Deine Antwort, nur möchte/kann ich es so nicht lösen. Weil dieses nicht zu denen gehört die unbedingt voll sein müssen; Es ist ein Optional Feld.

Das StrToFloat setze ich als Parameter bei "UPDATE Tabelle..." ein.

Gibt es da nur die Lösung, dass wenn der Nutzer nichts eingegeben hat den Wert auf '0' zu setzen. Wobei das bestimmt auch nicht immer der "Wille" des Nutzers ist.

[alcaeus]

Moin Hansi,

guck dir mal StrToFloatDef (SysUtils) an ;)

Greetz
alcaeus

[ManuMF]

Delphi-Quellcode:

if Edit.Text <> '') then
begin
  try
    Zahl := StrToFloat(Edit.Text);
  except
    Showmessage('Fehlerhafte Eingabe!');
    Edit.SetFocus;
    exit;
  end;
end;

// Oder

Zahl := StrToFloatDef(Edit.Text, 0);
If (Zahl = 0) and (Edit.text <> '') then
begin
  Showmessage('Fehlerhafte Eingabe!');
  Edit.SetFocus;
  exit;
end;

Gruß,
ManuMF

[Hansi]

100 Punkte an ManuMF und Alcaeus!

mit StrToFloatDef funktioniert es!

Danke!