04 2011 档案

随手笔记一个
摘要:需要加入 StrUtils 单元1 var2 s:string;3 i:integer;4 begin5 s:='abcdefg12345';6 for i:=1 to length(s) do7 showmessage(StuffString(s,i,1,''));8 end; 阅读全文

posted @ 2011-04-07 15:02 思想。生活。网络 阅读(126) 评论(0) 推荐(0)

导航

点击右上角即可分享
微信分享提示