你用的一定是Delphi5以上的版本,在Delphi4中QRDBText是可以换行的。不过关系也不大,可以用以下方法解决: 1、首先,做一个函数控制字符串换行; Function MitiLine (Str:String;N:Integer):String; var L,I:Integer; Strs:String; Begin L:=Length(Str); L:=Round(L/N+0.5); If L=0 Then begin Result:=Str; Exit; End; For I:=1 To L Do Strs:=Strs+Copy(Str,N*(I-1)+1,N)+#13; Result:=Strs; End;其中:Str是要控制的字符串,N是一行显示的字符数(注意汉字为双字符)。2、然后,在报表打印前调用该函数。 如: QRDBText1.Caption:=MitiLine(QRDBText1.Caption,24); Preview; 这样就可以了。
[email protected]
1、首先,做一个函数控制字符串换行;
Function MitiLine (Str:String;N:Integer):String;
var L,I:Integer;
Strs:String;
Begin
L:=Length(Str);
L:=Round(L/N+0.5);
If L=0 Then
begin
Result:=Str;
Exit;
End;
For I:=1 To L Do Strs:=Strs+Copy(Str,N*(I-1)+1,N)+#13;
Result:=Strs;
End;其中:Str是要控制的字符串,N是一行显示的字符数(注意汉字为双字符)。2、然后,在报表打印前调用该函数。
如:
QRDBText1.Caption:=MitiLine(QRDBText1.Caption,24);
Preview;
这样就可以了。