[AlexandrV]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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]

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

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

Код:

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

[AlexandrV]

Код:

1 2 3 4 5 6 7 8 9 10 11

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]

Код:

1 2 3

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

скобки

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

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