[AlexandrV]

Как сделать функцию удаления всех символов по аналогии как эта

Код:

Function DeleteNumber(Text:String):String;
const
  D = ['0'..'9'];
var
  i : Integer;
begin
  for i := Length(Text) downto 1 do begin
    if Text[i] in D then Delete(text, i, 1);
  end;
  Result:=Text;
end;

Проблема в том что функция будет вызываться даже если в строке нет символов так что в функции нужно делать проверку есть ли символы в строке короче удалять все символы но оставить только цифры по аналогии как сделана 1вая и чтобы проэкт не завис

[Facepalm]

Делай так же как и все остальные функции и процедуры.

[Страдалецъ]

Код:

if not Text[i] in D then Delete(text, i, 1);

[AlexandrV]

Код:

Function DeleteSimbol(Text:String):String;
const
  D = ['0'..'9'];
var
  i : Integer;
begin
  for i := Length(Text) downto 1 do begin
    if not Text[i] in D then Delete(text, i, 1);
  end;
  Result:=Text;
end;

ошибку выдает ругается на not

[cotseec]

Код:

...
if not (Text[i] in D) then Delete(text, i, 1);
...

скобки

[M.A.D.M.A.N.]

Вы тут походу совсем ипанулись...