Mega Code Archive

 

Categories / Delphi / VCL

 

Memonun satır,sütun ve karakter sayısını bulma

//drony@mynet.com //icq:266148308 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;