I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
//统计选定的行数：
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; 如果没有问题，给分吧。
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; 如果没有问题，给分吧。