Замена символов в тексте

[MyIE]

Pasha_Sh, тебе моя функция чем не понравилась-то?

[Pasha_Sh]

Pasha_Sh, тебе моя функция чем не понравилась-то?

я просто не увидел ваш ответ, сам отписался и вкладку сразу закрыл.

[DomiNick]

Так... Вот моя карявая (альфа) версия:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i, n, k: integer; s, txt: string;
begin
i:=1;
s:='';
txt:=Memo1.Text;
n:=Length(txt);
while i<n do
      begin
      if (txt[i]='&') and (txt[i+1]='#') Then
            begin
            i:=i+2;
            k:=0;
            while (txt[i] in ['0'..'9']) do
                  begin
                  k:=k*10+StrToInt(txt[i]);
                  i:=i+1;
                  end;
            if txt[i]=';' then i:=i+1;
            s:=s+chr(k);
            end
      else
            begin
            s:=s+txt[i];
            i:=i+1;
            end;
      end;
Memo1.Text:=s;
end;

Баги есть, но чтот сегодня уже не работает ум... =(

[Pasha_Sh]

function parser(str: string): string;
begin
result:= StringReplace(str, '§', '§', [rfReplaceAll, rfIgnoreCase]);
end;

MyIE, спасибо!.