求可以实现自动换行for delphi7的quickreport(20分)

  • 主题发起人 主题发起人 xyt3dnow
  • 开始时间 开始时间
X

xyt3dnow

Unregistered / Unconfirmed
GUEST, unregistred user!
以前使用delphi5,使用的是quickreport3.0.6能实现中文自动换行,现在用delphi7请各位大侠提供一个可以实现自动换行for delphi7的quickreport,是什么版本,最好能提供下载地址,谢谢了。
 
去 www.51delphi.com 看看
 
自动换行:
procedure TQuickRep1.QRLabel1Print(sender: TObject;
var Value: String);
var
iLen : integer;
strSource, strTemp : string;
begin
if Length(Value)<=TCustomControl(Sender).Width/7 then
exit;
strSource:=Value;
Value:='';
while truedo
begin
iLen:=1;
while iLen<TCustomControl(Sender).Width/7do
begin
if ord(strSource[iLen])>126 then
inc(iLen,2)
else
inc(iLen);
end;
dec(iLen);
if ord(strSource[iLen-1])>126 then
dec(iLen,2);
strTemp:=Copy(strSource,1,iLen);

if Value='' then
Value:=Trim(strTemp)
else
begin
Value:=Trim(Value+#13+strTemp);
end;
Delete(strSource,1,iLen);
if Length(strSource)<=TCustomControl(Sender).Width/7 then
begin
Value:=Trim(Value+#13+strSource);
exit;
end;
end;
end;
 
dez_0609你的是根据空格换行吧?一般的数据录入是不会有空格的啊。如果实现自动换行?
 
后退
顶部