Try-Except Hilfe

[BUG]

Zitat von alfold:

Im onkeypress kannst Du sowas verwenden
if not (key in ['0'..'9',#8, '.', ',', '-' ]) then key := #0;

Dann gehen aber auch Eingaben wie

Code:

32098,32--43,32-44.3294.3-24

Die Lösung von jfheins würde ich bevorzugen, allerdings ließe sich das ja auch kombinieren.

[DeddyH]

Wie wäre es denn so (über das Leeren des Edits kann man sich ja streiten, aber das ist nicht meine Sache)?:

Delphi-Quellcode:

//Für ältere Delphis unelegant implementiert
function TryStrToFloat(const s: string; out Number: double): Boolean;
begin
  try
    Number := StrToFloat(s);
    Result := true;
  except
    Result := false;
  end;
end;

procedure TForm5.Edit1Change(Sender: TObject);
var
  Zahl: double;
begin
  if (Sender is TEdit) and (TEdit(Sender).Text <> '') and (TEdit(Sender).Text <> '-') then
    if not TryStrToFloat(TEdit(Sender).Text, Zahl) then
      TEdit(Sender).Text := '';
end;