Listbox Items ändern

[DeddyH]

Aus der Hüfte:

Delphi-Quellcode:

const ToReplace = '{test}';
var i: integer;
begin
  ListBox1.Items.BeginUpdate;
  try
    for i := 0 to ListBox1.Items.Count - 1 do
      ListBox1.Items[i] := StringReplace(ListBox1.Items[i],ToReplace,Edit1.Text,[rfIgnoreCase]);
  finally
    ListBox1.Items.EndUpdate;
  end;
end;