Ich würde das nicht unbedingt OnChange machen. Schau Dir mal an, was
IMHO da alles passieren muss:
Delphi-Quellcode:
procedure TForm1.Memo2Change(Sender: TObject);
var i: integer;
begin
Memo1.Lines.BeginUpdate;
//evtl. vorhandene Zeilen erst löschen
while (Memo1.Lines.Count > 26) and (Memo1.Lines[26] <> '#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*') do
Memo1.Lines.Delete(26);
//nun Zeilen aus Memo2 einfügen
for i := Memo2.Lines.Count - 1 downto 0 do
Memo1.Lines.Insert(26,Memo2.Lines[i]);
Memo1.Lines.EndUpdate;
end;
Bisschen viel Gedöns für ein Memo, dass man zu dem Zeitpunkt gar nicht sieht, oder?