memo1中选定内容的起始位置的行和列值能读出来吗？

Question

memo1中选定内容的起始位置的行和列值能读出来吗？
还有：为什么读近来的文本文件行与行之间都加了空行？这样读出来的行列值就不对了。能去掉空行吗？

Answer 1

Memo1.CaretPos.X
Memo1.CaretPos.Y

Answer 2

memo1的行数
This parameter is not used. 实例：procedure TForm1.Button1Click(Sender: TObject);
var
LineNumber : Integer;
begin
LineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, -1, 0 );
......
end;以上对 Memo 和 RichEdit 都实用
有问题请发信息到我的E-mail:[email protected]

Answer 3

to breezing(前不见gz 后不见up) :
Memo1.CaretPos.X是选定内容结束位置的，不是起始位置的。307(冲击波) ：
能得到列值吗？

Answer 4

怎么在memo中添加idmessgage.body?
Memo1.Lines.AddStrings(TIdText(iMsg.MessageParts.Items[1]).Body);
有问题嘛？我老是出现lists index out of bounds(1)的错误，怎么解决？