"Delphi" Programlama dilinde "Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils, RegularExpressions;

var
  str1, res: string;
  pattern: TRegEx;

begin
  str1 := 'Ben 30 yaşındayım ve 10 yıldır yazılım sektöründeyim';
  WriteLn('Orjinal string : ', str1);

  pattern := TRegEx.Create('\D+');
  res := pattern.Replace(str1, '');

  WriteLn(res);
end.