Das Memo will einen owner.
Kann Self oder nil sein.
Der Owner ist für das zerstören der Instanz von TMemo zuständig.
Bei nil musst du das selbst erledigen.
Memo.destroy
Wegen des formatierten Text ist das Benutzen von TMemo vielleicht doch nicht so gut.
ok probieren wir doch mit TStrings.
Du kannst eine private Var vom Typ TStrings deklarieren.
Danach kannst du direkt Richedit.Lines zuweisen.
Kein Create verwenden.
Also
Delphi-Quellcode:
var
str :TStrings
procedure machwas;
begin
str := Richedit1.Lines;
end;
procedure machwasanderes;
begin
Richedit2.Lines := str;
end
Du brauchst dann auch kein Destroy für str, da du keine Instanz erzeugt hast.
Gruss