随手笔记一个
摘要:需要加入 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
what about thinking
posted @ 2011-04-07 15:02