请问如何操作memo中的某行？

Question

我想将memo中的显示写入excel表中，请问如何表示memo中的行，语句是怎么写的？？？？

Answer 1

在ONCHANGE中加入以下代码:
var
    Hang,Lie,Num,CharsLine:longint;
begin
    Num:=SendMessage(memo1.Handle,EM_LINEFROMCHAR,RichLearn.SelStart,0);
    CharsLine:=SendMessage(memo1.Handle,EM_LINEINDEX,Num,0);
    Hang:=Num+1;//当前行
    Lie:=(memo1.SelStart-CharsLine)+1;//当前列
End;
//hang 就是当前所在的行, 列就是当前所在的行试试。

Answer 2

xlapp := createoleobject('excel.application');
WBK := xlapp.workbooks.Open('文件名.xls');
sheet := xlapp.workbooks[1].worksheets['sheet1'];
sheet.cells[1,2]:=memo1.Lines[i]

Answer 3

memo1.lines[i] 是一个字符串吗？

Answer 4

Memo1.Lines.Strings[i] := 'AAAAAAAAA';