lines.count取的是硬回车的数量,
自动换行是软回车,所以没有取出来,
你可以先得到第一行的字符数,
然后作个循环算出来
h:=qrmemo.width div qrmemo.textwidth('a');//要用等宽字
t:=0;
for i:= 0 to lines.count -1 do
begin
t:=t+Trunc(length(lines[i])/h)+1;
end;
t为得到的数量
自动换行是软回车,所以没有取出来,
你可以先得到第一行的字符数,
然后作个循环算出来
h:=qrmemo.width div qrmemo.textwidth('a');//要用等宽字
t:=0;
for i:= 0 to lines.count -1 do
begin
t:=t+Trunc(length(lines[i])/h)+1;
end;
t为得到的数量
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货