[metra52]

Подскажите функцию которой можно убрать спец символы из строк такие как & итд

[angvelem]

Чем StringReplace не устраиывет?

[metra52]

символы могут находиться в разных местах, и я не знаю такой функции

[angvelem]

Pos, PosEx - для поиска, если уж приспичило. StringReplase ищет самостоятельно.

[Ildar-tsr]

Вы бы привели свою строку, в которой нужно спец.символы убрать.

[ALexandr555]

Код:

var
book: string;
reg3: TRegExpr;
begin
 reg3:=TRegExpr.Create;
 Reg3.Expression:='(&#\d*?;)';
 Reg3.InputString:=book; 
 While Reg3.Exec do
  begin
   memo1.Lines.Add(Reg3.Match[1]);
   book:=StringReplace(book,Reg3.Match[1],'',[]);
   Reg3.InputString:=book;
  end;
 Reg3.Expression:='(&[a-zA-Z]*?;)';
 Reg3.InputString:=book; 
 While Reg3.Exec do
  begin
   memo1.Lines.Add(Reg3.Match[1]);
   book:=StringReplace(book,Reg3.Match[1],'',[]);
   Reg3.InputString:=book;
  end;
 reg3.free;
end;

я делал так недавно,
в первом ищет по маске "&#цифры;" и втором "&английские символы;"
вот такие отлично находит

   
¡ ¡

[Ildar-tsr]

Мне кажется тут можно обойтись просто StringReplace'м.