关于Delphi的FAQ

如何取出Memo中光标所在行的内容:

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(memo1.Lines.Strings[SendMessage(memo1.Handle, EM_LINEFROMCHAR, memo1.SelStart, 0)]);
end;

更简单的方法是：
procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowMessage(Memo1.Lines.Strings[Memo1.CaretPos.Y]);
end;

原地址：http://community.youkuaiyun.com/Expert/topic/4275/4275347.xml?temp=.1303064