Minuszeichen abfangen?

[SirThornberry]

@ripper8472: strtofloatdef hat aber doch den Nachteil das man nicht weiß ob es geklappt hat oder nicht da man ja im Fehlerfall den Defaultwert bekommt. Aber es kann ja auch sein das man den Defaultwert bekommt wenn alles klappt. Ich finde es nicht ganz so toll wenn man einfach dann mit einem Defaultwert rechnet und der User sich über das Ergebnis wundert, es ist einfach besser wenn man den user auf seine Fehleingabe hinweisen kann. Und wie schon jemand vor mir geschrieben hat kann man auch einfach vor dem StrToFloat prüfen ob das Edit aus mehr als einem Minuszeischen besteht.

Delphi-Quellcode:

if TEdit(Sender) <> '-' then
  Variable := StrToFloat(TEdit(Sender).Text);