Laufzeitoptimierung, MandelbrodtJuliaZoom

[guidok]

Zitat von himitsu:

Im Notfall kann man Backspace und Delete auch ganz einfach in Maskedits implementieren
und (führende/folgende) Leerstellen würde ich einfach als 0 behandeln, oder vor der Umwandlung wegschneiden (Trim).

oder direkt bei der Eingabe prüfen, ob das eingegebene Zeichen zu einer gültigen Zahl führt

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var DummyOut: Single;
begin
  if not TryStrToFloat(Edit1.Text + Key, DummyOut) then begin
    Key := #0;
  end;
end;