[SOLVED] Better way to replace text in a stringlist?

[BigChimp]

Hi all,

To replace some text all over a stringlist, I'm using this function:

Code: [Select]

procedure StringListReplace(var SearchIn: TStringList; SearchFor: string;
  ReplaceWith: string);
{description Searches for all occurrences of SearchFor in SearchIn
and replaces them with ReplaceWith}
var
  Counter: integer;
begin
  for Counter := 0 to SearchIn.Count - 1 do
  begin
    SearchIn[Counter] := StringReplace(SearchIn[Counter], SearchFor,
      ReplaceWith, [rfReplaceAll]);
  end; //for
end;

I have a nagging feeling that this is a task that a lot of people would already have done.
Is there perhaps an easier/quicker/cleaner way of doint this?

Thanks.

[fabienwang]

Yes there is a much easier way:

SearchIn.Text := StringReplace(SearchIn.Text, SearchFor, ReplaceWith, [rfReplaceAll]);

Your procedure is not really useful now

[BigChimp]

Your procedure is not really useful now

Thanks, Fabien, not sad at all to see that procedure go!

I knew about the property but just was a bit dumb at usual. Glad you helped me!