delphi字符串固定长度换行

2021-06-06 20:05

阅读：472

标签：int while osi 字符换行长度 auto com val

var

str,capstr:string;

i,j:integer;

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

j:=500; //这个地方可能要根据你显示的宽度来换算对应的字符长度

str:=somestring;

capstr:=‘‘

i:=1

while ido

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;

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

delphi字符串固定长度换行

标签：int while osi 字符换行长度 auto com val

原文地址：https://www.cnblogs.com/semth/p/10763520.html

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：delphi字符串固定长度换行
文章链接：http://soscw.com/essay/91434.html

亲，登录后才可以留言！