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;

 

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