Memo in Memo kopieren ?

[Zacherl]

Vorrausgesetzt, dass das Zielmemo mehr oder gleich viele Zeilen hat, als das Quellmemo:

Delphi-Quellcode:

var
  I: Integer;
begin
  for I := 0 QuellMemo.Lines.Count -1 do
  begin
    if QuellMemo.Lines[I] <> '' then
    begin
      ZielMemo.Lines[I] := QuellMemo.Lines[I];
    end;
  end;
end;