Nicht sichtbare Zeichen im String eliminieren

[Jens Schumann]

Hallo,
hier kommt die schnellste Variante, die ich kenne

Delphi-Quellcode:

function DeleteNonNumbers(const Value: String): String;
var
  I: Integer;
  P: PChar; 
begin 
  SetLength(Result, Length(Value)); 
  P := PChar(Result); 
  for I := 1 to Length(value) do 
    if ord(source[i])>=32 then
    begin 
      P^ := Value[I]; 
      Inc(P); 
    end; 
  SetLength(Result, P - PChar(Result)); 
end;

Quelle