在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
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;
........................ |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论