Texteingaben sowie leerstellen ausschliessen

[RSF]

oder die Eingabe im Ereignis KeyPress abfangen:

Delphi-Quellcode:

procedure TTaschenrechner.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IF key =#13 Then Key:=#0
else
  if not (Key in [#8,#44..#46,#48..#57]) then Key:= #0
end;

[Joecker]

ok ich habs bisher erstmal soweit geschafft dass er es mir anzeigt wenn ich keine zahl eingeb durch folgenden befehl

procedure TForm1.Edit1Change(Sender: TObject);
begin
try (strtofloat(Edit1.Text))
except
On EConvertError do messagedlg('Dies ist keine Zahl!',mtInformation,[mbOK],0);
end;

end;

leider crasht mir der debugger trotzdem wenn ich keine zahl eingebe auch wenn er mit danach noch die msg zeigt. ich weiss das man das mit dem debugger umstellen kann will ich aber nicht machen
deswegen die frage ob ich diesen crash und das rauswerfen aus dem programm verhindern kann?

[Satty67]

Das passiert nur innerhalb der Delphi-IDE beim Debuggen. Wenn Du das Programm alleine startest, funktioniert es wie geplant.

Um das zu umgehen (ohne sinnvolle Debugger-Funktionalität zu verbergen) müsstest Du TryStrToFloat verwenden, wie es Bummi vorgeschlagen hat. (Leider verheimlichst Du Deine Delphi Version, obwohl es dafür einen schönen Profileintrag gibt. TryStrToFloat gibt es so ungefähr ab Delphi 7)