读Memo组件的当前行的行号的小问题

Question

我想用em_LineFromChar读取光标所在行的行号
procedure TForm1.BitBtn1Click(Sender: TObject);
var
       iline:Integer;
begin
    iline:=Memo1.Perform(em_LineFromChar,$FFFF,0);
    messageDlg('当前行号:'+IntToStr(iline),mtInformation,[mbOK],0);end;
  可只能实现读取总的行数。我该如何实现？
  敬请指教。谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('E:\Program\ini\安装程序.txt');
  Label1.Caption:=inttostr(Memo1.Lines.IndexOf(Memo1.Lines.Strings[1]));
end;

Answer 2

所以你可以这样：
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('E:\Program\ini\安装程序.txt');
  // Label1.Caption:=inttostr(Memo1.Lines.IndexOf(Memo1.Lines.Strings[1]));
  Label1.Caption:=inttostr(Memo1.CaretPos.Y);
end;结帖吧~  ^_^