Tmemo取得当前行数如何解决？

Question

Memo1.Lines.Strings[0]
Memo1.Lines.Strings[1]
Memo1.Lines.Strings[2]
得到0、1、2

Answer 1

总行数:memo1.lines.count
光表当前行数 Y := SendMessage(momo1.Handle, EM_EXLINEFROMCHAR, 0,
    memo1.SelStart);
光表当前列数X := (momo1.SelStart -
    SendMessage(memo1.Handle, EM_LINEINDEX, Y, 0));

Answer 2

procedure TBaseFM1.Memo1Change(Sender: TObject);
var lens:integer;
begin
lens:=Memo1.Lines.Count;
lens:=length((Memo1.Lines.Strings[memo1.caretpos.x]));
if lens=0 then 删除当前行end;

Answer 3

procedure TBaseFM1.Memo1Change(Sender: TObject);
var lens:integer;
begin
lens:=Memo1.Lines.Count;
lens:=length((Memo1.Lines.Strings[memo1.caretpos.x]));
if lens=0 then memo1.lines.delete(memo1.caretpos.x);
end;

Answer 4

你是不是要判段当前行添加的是空格还是字付啊?
可以用这个涵数trim();
if length(Trim(memo1.Lines.strings[memo1.CaretPos.y])) then
删除当前行

Answer 5

99guo(小兵) :
你帮我试试：
在窗体上放一个memo1\edit1\button1
然后在memo1的onchange事件中添加：
var lens:integer;
begin
 lens:=length(memo1.Lines.Strings[memo1.caretpos.y]);
 if lens=0 then memo1.Lines.Delete(memo1.caretpos.y);在button1的单击事件中添加：
memo1.Lines.Add(edit1.Text);当edit1.text=''memo1中为空，再添加一个不为空的时候就从第一行开始，再添加一个空，再添加的第三行的时候，就紧接着第一行的下一行（也就是第二行）写入我总是做不到，请你给我看看

Answer 6

在button1的单击事件中添加：
if length(trim(edit1.text))<>0 then
      memo1.Lines.Add(edit1.Text);