delphi字符串固定长度换行
var
str,capstr:
string
;
i,j:
integer
;
....................
j:=
500
;
//这个地方可能要根据你显示的宽度来换算对应的字符长度
str:=somestring;
capstr:=
''
i:=
1
while
i<=length(somestring)
do
begin
capstr:=capstr+copy(str,i,j)+#
13
#
10
;
i:=i+j;
end
;
label1
.
WordWrap:=
true
;
label1
.
AutoSize:=
true
;
label1
.
Font
.
Name:=
'宋体'
;
label1
.
Caption:=capstr;
........................
更多精彩
