需要加入 StrUtils 单元
1 var
2 s:string;
3 i:integer;
4 begin
5 s:='abcdefg12345';
6 for i:=1 to length(s) do
7 showmessage(StuffString(s,i,1,''));
8 end;
1 var
2 s:string;
3 i:integer;
4 begin
5 s:='abcdefg12345';
6 for i:=1 to length(s) do
7 showmessage(StuffString(s,i,1,''));
8 end;