Dicas - Pegar a linha e coluna de um Memo

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, como "pegar" a linha e coluna de um Memo

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

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?