Question

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

Button1被按下，Edit1中文本的第一行文字显示到Edit2，第二行文字显示到Edit3，第三行显示到Edit4

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('f:\abc.txt'); //把memo1换成你的控件
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=memo1.Lines.Strings[0]; //记录显示
edit2.Text:=memo1.Lines.Strings[1]; //记录显示
edit3.Text:=memo1.Lines.Strings[2]; //记录显示
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
edit4.Text:=edit3.Text;
edit3.Text:=edit2.Text;
edit2.Text:=edit1.Text;
end;

Answer 3

TEdit 控件不支持 多行 用 TMemo 或 TRichEidt

追问

我知道不能多行，我只需要方法，我用的TntRichEdit，，我需要unicode
o(>﹏<)o