帮我呀!报表中字符串字段怎么折行显示?
发布网友
发布时间：2022-04-26 14:24
共1个回答
热心网友
时间：2022-06-29 03:16
divStr(Tmpstr:string;
tmpInt:integer):TstringList;
for
j
:=
1
to
i*tmpInt
dovari,j,k:integer;somelist:TStringList;beginfor
i
:=
1
to
(length(tmpstr)
div
tmpInt+1)
do
begin
k
:=
0;
if
j
<=
length(tmpstr)
then
if
ord(tmpstr[j])
>
126
then
k
:=
k+1;
if
(k
mod
2
=
0)
then
insert(#13#10,tmpstr,i*tmpInt-1)
else
insert(#13#10,tmpstr,i*tmpInt);
somelist:=TStringList.Create;
//如不雅最后为汉字后半部分，那么i*tmpInt,不然i*tmpInt-1,以避免半个字符的出现
//somelist.Clear;
somelist.Add(tmpstr);
result:=somelist;end;……
end;QRMemo1.Lines.Clear;QRMemo1.Lines:=divStr(DbEdit1.Text,24);
