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;