Ciao a tutti,
utilizzo questo codice per effettuare la sostituzione di alcune parti di testo in un RichEdit.
codice:
procedure TfPrincipale.Sostituisci(trova, sostituisci: string);
var n: integer;
begin
n := RichEdit1.FindText(trova, 0, Length(RichEdit1.Text), [stMatchCase]);
if n > - 1 then
begin
RichEdit1.SelStart := n;
Richedit1.SelLength := Length(trova);
RichEdit1.SetSelTextBuf(PAnsiChar(sostituisci));
end;
end;
Avrei bisogno però che effettuasse tutte le sostituzioni nel testo e non solo la prima. Come potrei fare?