RE: Lazarus - Remove all (non)numbers from a string

Hans — Wed, 02 Apr 2025 08:21:33 +0000

If you only want to grab all the numbers until you reach a non-number (eg: 123example456 -> 123) then this will do the trick:

  function RemoveAllNonNumbers(aText:string):string;
  var
    Character : Char;
  begin
    Result := '';

    for Character in aText do
      if CharInSet(Character,) then
        Result := Result + Character
      else
        exit;
  end;

Lazarus - Remove all (non)numbers from a string

Hans — Fri, 31 Aug 2018 06:30:01 +0000

When writing one of my small applications I ran into the issue that I had to remove all non-numbers from a string.
I came up with this little function and thought it may be useful to others.
I've also added an example for those who only want to remove numbers from a string (so the opposite).

function RemoveAllNonNumbers(aText:string):string;
var
  Character:Char;
begin
  for Character in aText do
    if CharInSet(Character,) then
      Result := Result + Character;
end;

The opposite:

function RemoveAllNumbers(aText:string):string;
var
  Character:Char;
begin
  for Character in aText do
    if not CharInSet(Character,) then
      Result := Result + Character;
end;

Hope this is useful to someone

Lazarus - Remove all (non)numbers from a string - Delphi, Lazarus, Free Pascal

RE: Lazarus - Remove all (non)numbers from a string

Lazarus - Remove all (non)numbers from a string