Edit kopieren

[DeddyH]

Vielleicht ist so etwas gemeint (schnell heruntergetippt und nicht groß getestet)?

Delphi-Quellcode:

function StripNumbers(const sIn: string): string;
const
  NUMBERS = ['0'..'9'];
var
  i, CurrentLen: integer;
begin
  CurrentLen := 0;
  SetLength(Result, Length(sIn));
  for i := 1 to Length(sIn) do
    {$IFDEF UNICODE}
    if not CharInSet(sIn[i], NUMBERS) then
    {$ELSE}
    if not (sIn[i] in NUMBERS) then
    {$ENDIF}
      begin
        inc(CurrentLen);
        Result[CurrentLen] := sIn[i];
      end;
  SetLength(Result, CurrentLen);
end;