访问量: 28821次,访客数: 24308人,浏览量: 1次 
首页  编辑  

统计选定的行数

Tags: /超级猛料/VCL/Memo&Edit&Richedit/   Date Created: Wed Aug 15 2001 04:00:38 GMT+0000 (Coordinated Universal Time)

]、。·ˉˇ¨〃々—~‖…’”〕〉》」』〗】∶!"'),.:;?]` //统计选定的行数:

function GetMemoSelectLineCount:integer;

var

 s,e:integer;

begin

 with memo1 do begin

   s:=sendmessage(handle,EM_LINEFROMCHAR,selstart,0);

   e:=sendmessage(handle,EM_LINEFROMCHAR,selstart+selLength,0);

 end;

 result:=e-s;

end;     如果没有问题,给分吧。