Automatisches Rechnen

[Popov]

Was mkinzler sagen will ist, dass es riskant ist anzunehmen, dass in einem Edit-Feld immer eine Zahl steht. Was passiert wenn dort mal keine Zahl steht? Dann gibt es eine Fehlermeldung und u. U. Programmabbruch.

Falls dir TryStrToFloat nichts sagt, mit StrToFloatDef kann man auch eine Prüfung auf korrekte Zahl machen:

Delphi-Quellcode:

  if StrToFloatDef(Edit1.Text, 0) = StrToFloatDef(Edit1.Text, -1) then
    ShowMessage('Alles klar, in Edit1 steht eine Zahl.')
  else
    ShowMessage('Halt, in Edit1 steht ein Text oder eine fehlerhafte Zahl.')

Wenn in Edit-Feld eine Zahl steht, ist die IF Abfrage TRUE. Steht keine Zahl drinn, gibt das linke StrToFloatDef als Ersatz eine 0, das rechte -1. Das Ergebnis ist FALSE.