本文整理自网络,侵删。

procedure TForm1.Button2Click(Sender: TObject);vari:integer;str1:string;str2:string;str3:string;beginstr1:='中华民族是伟大的民族。';
for i:=1 to Length(str1) dobeginstr2:=str2+str1[i];if Length(str2) =2 thenbeginstr3:=str3+str2+' ';str2:='';end;end;Memo.Text:=str3+str2;end;
相关阅读 >>
Delphi datamodule1 fdconnection1数据库连接
Delphi xe5实现通过tmemorystream将一个unicodestring写入到一个unicode文本文件
Delphi使用project manager添加一个java库到你的应用程序
Delphi中转向语句break,continue,exit的作用
更多相关阅读请进入《Delphi》频道 >>