Nur Zahlen aus einem String zulassen

[DeddyH]

Na gut, dann bring ich auch noch einen:

Delphi-Quellcode:

function OnlyNumbersInString(const aValue: String): String;
const aChars = ['0'..'9'];
var
  i, j: integer;
begin
  SetLength(Result,Length(aValue));
  j := 0;
  for i := 1 to Length(aValue) do
  begin
    if (aValue[i] in aChars) then
    begin
      inc(j);
      Result[j] := aValue[i];
    end;
  end;
  SetLength(Result, j);
end;