Author: Jonas Bilinkevicius

How to strip numbers from an alphanumeric string

Answer:

1   function.StripNonNums(AText: string): string;
2   var
3     i: integer;
4     r: integer;
5   begin
6     SetLength(Result, Length(AText));
7     r := 1;
8     for i := 1 to Length(AText) do
9       if AText[i] in ['0'..'9'] then
10      begin
11        Result[r] := AText[i];
12        Inc(r);
13      end;
14    SetLength(Result, r);
15  end;