Zeichen in Memo ersetzten und Formatierung beibehalten?!

[haentschman]

Moin...

Delphi-Quellcode:

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

  Result := y;
end;

...bitte verwende sprechende Namen. Aus eigener Erfahrung: Je kompexer die Anwendung...dann weißt du in 3 Monaten nicht mehr was was ist.