编程论坛 → Delphi论坛

求助，请问以下功能如何实现

a4152011 发布于 2012-07-10 16:53， 605 次点击

请问以下功能如何实现：
按一下Button1，使得Edit1中的第一行文字在Edit2中显示，Edit1中第二行文字在Edit3中显示，第三行在Edit4中显示

2 回复

kinsey08032012-07-18 14:44

Edit控件有行的概念吗？或对Text逐个字符进行判断，通过#13 回车 #10 换行来做分段标识，截取Text
把问题说明白点

kpym2012-07-20 09:04

亲，edit是没有换行的哦，你改用memo吧，可以这样：
procedure TForm1.Button1Click(Sender: TObject);
begin
   edit1.Text :=memo1.Lines[0];  //0为memo的第一行，以此类推
   edit2.Text:=memo1.Lines[1];
   edit3.Text:=memo1.Lines[2];
end;