Pegar a linha e coluna de um Memo

 

Para pegar a linha e coluna de um Memo utilize o seguinte código:

 

var

  Linha, Coluna: integer;

begin

  with Memo1 do

  begin

    Linha := Perform(EM_LINEFROMCHAR,SelStart, 0);

    Label1.Caption := IntToStr(Linha);

    Coluna := SelStart - Perform(EM_LINEINDEX, Linha, 0);

    Label2.Caption := IntToStr(Coluna);

  end;

end;

 

Rode a aplicação e veja o resultado na Figura. Lembre-se que a linha começa por “0”.

Memo.gif

 

Luciano Pimenta®

Editor Web do Portal ClubeDelphi.NET

webeditor@clubedelphi.net

www.clubedelphi.net