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 常用api 函数

Delphi在memo按键实现全选

Delphi xe 遍历指定数据库，清空各表记录

delhi 获取进程图片

Delphi 中的哈希表: thashedstringlist

Delphi 数据库获取所有用户名

Delphi 程序窗体及控件自适应分辨率

Delphi 把修改好的cookies重新赋值给webbrowser1 doc

Delphi中始终用webbrowser打开网页

Delphi编写提取exe文件的ico图标

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

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