Nur Zahlen aus einem String zulassen

[SirThornberry]

optimiert würde ich es dann so machen:

Delphi-Quellcode:

procedure OnlyNumbersInString(var aValue: String; aChars: TSetofChars); 
var 
  i, j: Integer; 
begin 
  j := 0;
  for i := 1 to Length(aValue) do 
  begin 
    if (aValue[i] in aChars) then 
    begin 
      inc(j);
      aValue[j] = aValue[i];
    end; 
  end;
  SetLength(aValue, j);
end;