16 Mart 2015, 12:15
|
#1 |
| Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| 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: Kodu kopyalamak için üzerine çift tıklayın! 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;
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|
|
|  |