lerzeichen entfernen

[marabu]

Eigentlich möchte ich das Vorzeichen nicht wegwerfen.

Außerdem gibt es Benutzer, die manchmal Leerstellen, manchmal den Tausenderpunkt zur Verbesserung der Lesbarkeit eintragen.

Delphi-Quellcode:

function StrToIntEx(const s: string): Integer;
begin
  Result := StrToInt(Without(s, [' ', ThousandSeparator]));
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  s: string;
begin
  s := ''
  while InputQuery('Numeric Input Normalization', 'Integer String', s) do
    s := IntToStr(StrToIntEx(s));
end;