Question

DELPHI7 Memo1中的内容怎么一行一行读出并显示在Memo2

Answer 1

全部显示在memo2：memo2.text:=memo1.text;
取第1行 memo1.Lines.Strings[0] ;
取第2行 memo1.Lines.Strings[1] ;

Answer 2

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;