点button1时怎样把memo1中光标所在的行符给edit1.text呢？

Question

关于组件问题，点button1时怎样把memo1中光标所在的行符给edit1.text呢？

Answer 1

Edit1.text := Memo1.Lines.text

Answer 2

var
  line: integer;
begin
   line := sendmessage(memo1.handle.em_linefromchar,memo1.selstart,0);
   edit1.text := inttostr(line);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(Memo1.CaretPos.y) + '行';
end;

Answer 4

楼上的错了个符号，吼吼 
line := sendmessage(memo1.handle.em_linefromchar,memo1.selstart,0);line := sendmessage(memo1.handle,em_linefromchar,memo1.selstart,0);