IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - memodaki string'in satır,sütun ve karakter sayısını bulma

memodaki string'in satır,sütun ve karakter sayısını bulma

Kod:

procedure TForm1.Button1Click(Sender: TObject);

var

  Lpos,Cpos,LineLength:integer;

begin

   Lpos := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);

   Cpos := SendMessage(memo1.Handle,EM_LINEINDEX,Lpos,0);

   LineLength := SendMessage(memo1.handle, EM_LINELENGTH, Cpos, 0);

   CPos := Memo1.SelStart-CPos;

 

   Label1.Caption:='Aktif Satır no: '+IntToStr(Lpos);

   Label2.Caption:='Aktif Sütun no: '+IntToStr(Cpos);

   Label3.Caption:='Karakter sayısı: '+IntToStr(LineLength);

end;