Delphi 控制N个字符间距空格

本文整理自网络，侵删。

 

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
str1:string;
str2:string;
str3:string;
begin
str1:='中华民族是伟大的民族。';

for  i:=1  to  Length(str1)  do
begin
str2:=str2+str1[i];
if Length(str2) =2 then
begin
str3:=str3+str2+' ';
str2:='';
end;
end;
Memo.Text:=str3+str2;
end;
 

相关阅读 >>

Delphi strlenwide 汇编统计字符串长度

Delphi 静态调用dll和动态调用dll优缺点

Delphi实现拖动无标题窗口的5种方法

Delphi的对象注销方法destroy和free的区别

Delphi tgauge类的定义在哪个单元中定义的？

Delphi 比较完整的listview1用法

Delphi cxgrid 通过字段名取得列

Delphi 时间戳与日期互转

Delphi showmainform := false 失效的解决办法

Delphi中实现调整图像的色阶的算法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 控制N个字符间距空格