Поиск и замена в RE, подправить код

[MyLastHit]

здравствуйте! написал программу для поиска и замены слова в RE:
var e:integer; a:string;

begin
Richedit1.lines.add('How do you do');
a:=Richedit1.text;
e:=pos('you',a);
delete(a, e, 3);
insert('XXXX', a, e);
richedit1.Text:=a;

Одна лишь только проблемма: если в cтроке будет 'you you you', то он заменяет только одно слово, первое(на ХХХХ). А как сделать так чтобы он заменял их все: 'you you you' = 'xxxx xxxx xxxx'.


И заодно вопрос в догонку, создаю программы с двумя формами. Как сделать так чтобы допустим, в онклике по кнопке:

Form2.show;

И форма показывалась как реальное окно, для которого наряду с остальными программами, выделено место в Панели задач "Пуск"?

[Stilet]

RichEdit1.Lines.Text:=StringReplace(RichEdit1.Lines.Text,'you you you','xxxx xxxx xxxx',[rfreplaceall]);

Подойдет?

[MyLastHit]

неа, а если вдруг понадобится:
Richedit1.text:=edit1.text, где может быть 'you you you you you you'. Как их всех тогда ковертировать?...

[Stilet]

Как их всех тогда ковертировать?...

Точно так же. См. в хелпе функцию StringReplace

[Kolik317]

RichEdit1.Lines.Text:=StringReplace(RichEdit1.Lines.Text,'you','xxxx',[rfreplaceall]);

[Grag]

А я бы так написал

RichEdit1.Lines.Text:=StringReplace(RichEdit1.Lines.Text,'you','xxxx',[rfreplaceall]);

Ну, с этим малость опоздал...
И если еще без учета регистра, то добавил бы [rfIgnoreCase]

[MyLastHit]

спасибо большое)

[MyLastHit]

а насчет второго вопроса. Как сделать так чтобы вторая форма отображалась в Панели задач, и чтоб ее можно было сварачивать и закрывать оттуда?

[ZvEr_HaCkEr]

или еще проще кинуть replace dialog и обработать событие OnReplace.

procedure TForm4.ReplaceDialog1Replace(Sender: TObject);
  label 10;
begin
10:
richedit1.HideSelection:=true;

if pos(replacedialog1.FindText,richedit1.Text)<>0 then
 begin
   richedit1.SelStart:=pos(replacedialog1.FindText,richedit1.Text)-1;
   richedit1.SelLength:=length(replacedialog1.FindText);
   richedit1.SelText:=replacedialog1.ReplaceText;
 end;
   goto 10;
 richedit1.HideSelection:=false;
end;

[Hacker19_90]

Как сделать так чтобы вторая форма отображалась в Панели задач,

Вот так можно. правда код на С++.

SetWindowLong(Form2->Handle,GWL_EXSTYLE,GetWindowLong(Form2->Handle,GWL_EXSTYLE)|WS_EX_APPWINDOW);