全部显示在memo2：memo2.text:=memo1.text;
取第1行 memo1.Lines.Strings[0] ;
取第2行 memo1.Lines.Strings[1] ;
var i:integer;
begin
Memo2.Lines.Clear;
for i := 0 to memo1.Lines.Count -1 do
begin
Memo2.Lines.Add(memo1.Lines.Strings[i]);
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024