随手笔记一个

需要加入 StrUtils 单元

var
  s:string;
  i:integer;
 begin
  s:='abcdefg12345';
  for i:=1 to length(s) do
    showmessage(StuffString(s,i,1,''));
end;