*из строки удалить символы

var
s:string;
{…}
while pos('!',s)<>0 do delete(s,pos('!',s),1);

• < Назад
• Вперёд >