Zeichen in Memo ersetzten und Formatierung beibehalten?!

[Uwe Raabe]

Zitat von Luckie:

Und wieder fehlt der entscheidende Code: coding.

Wieso?

Zitat von Rawsche:

Delphi-Quellcode:

procedure TForm1.Coding(var x:string);
var i:integer;
begin
  for i:=0 to listbox1.items.count-1 do
  if x=listbox1.items[i] then x:=listbox2.items[i];
end;