s/[^0-9]//g

Function DelChar(S:String; Ch:Char):String;
var i:integer;
begin
 for i:=Length(S) downto 1 do
     if (S[i]=Ch) then Delete(S,i,1);
 Result:=S;
end;


for Ch:='0' to '9' do
   S:=DelChar(S,Ch);

for C := '0' to '9' do
  S := StringReplace(S, C,'',[rfReplaceAll]);

s/[^0-9]//g

DelChar('6T6TT')

function TForm1.DelChar(S: String; Ch: Char): String;
begin
  for Ch:='а' to 'я' do S:= StringReplace(S, Ch,'',[rfReplaceAll]);
  Result:=S;
end;

function OnlyDec(const Inp: string): string;
Var
 k: integer;
begin
  Result := '';
  for k := 1 to Length(Inp) do
   if CharInSet(Inp[k], ['0'..'9']) then
     Result := Result + Inp[k];
end;

function DeleteNonNumbers(const Source: string): string;
var
  Idx: Integer;
  Count: Integer;
begin
  Count := 0;
  SetLength(Result, Length(Source));
  for Idx := 1 to Length(Source) do
    if Source[Idx] in ['0'..'9'] then
    begin
      Inc(Count);
      Result[Count] := Source[Idx];
    end;
  SetLength(Result, Count);
end;

function FilterStr(const Filter: TSysCharSet; const s: string): string;
var
 c: char;
 i, TopPtr: integer;
begin
 TopPtr := 1;
 SetLength(Result, Length(s));
 for i := 1 to Length(s) do
 begin
  c := s[i];
  if CharInSet(c, Filter) then
  begin
   Result[TopPtr] := c;
   Inc(TopPtr);
  end;
 end;
 SetLength(Result, TopPtr - 1);
end;

function ExtractDigits(const s: string): string;
begin
 Result := FilterStr(['0'..'9'], s);
end;

uses
  System.RegularExpressions;

var
  s: string;
begin
  s := TRegEx.Replace('abc123aMAKS LKnap9sd nlmadn paq;KIJ HI0POAD na[s d[nklN *(_( YT#*&)$@ ^$bc', '[^0-9]', '');
end;

for C := '0' to '9' do
  S := StringReplace(S, C,'',[rfReplaceAll]);

for C := '0' to '9' do
  S := StringReplace(S, C,'',[rfReplaceAll]);

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы