[DELPHI]: RichEdit e sostituzione

[peste1]

Ciao a tutti,
utilizzo questo codice per effettuare la sostituzione di alcune parti di testo in un RichEdit.

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?

[Emulator ®]

C'è una funziona che evitata tutto quel codice. Si tratta della funzione Replace... prova ad usarla e se hai ulteriore bisogno chiedi pure.

Saluti

[alka]

Originariamente inviato da peste1
Avrei bisogno però che effettuasse tutte le sostituzioni nel testo e non solo la prima. Come potrei fare?

Non potresti semplicemente ripetere quel ciclo di istruzioni fino a quando il valore restituito da FindText non è uguale a -1? :master:

[peste1]

Ci ho provato ieri alka ma mi si piantava tutto oggi sotto i tuoi magici effluvi... sono riuscito

@ Emulator : il controllo RichEdit ha una funzione Replace?

[Emulator ®]

No, ma le stringhe si... basta memorizzare il contenuto del RichEdit in una stringa, eseguire il replace e poi dopo cambiare il contenuto del RichEdit con quello della stringa.

Saluti

EDIT: che sbadato, non avevo pensato che perderebbe la formattazione del testo!