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;

 

........................