for i:=1 to (length(somestr) div 2) do
begin
setlength(high(strs)+2);
strs[high(strs)]:=somestr[i*2-1]+somestr[i*2];
end;
if (i-1)*2<length(somestr) then
begin
setlength(high(strs)+2);
strs[high(strs)]:=somestr[i*2-1];
end;
Var iK,jK:integer;
Str,Ch:string;
begin
Str:='000009132756ad787852';
iK:=2;{设定每次读取的字符长度}
for jK:=0 to Round(length(Str)/iK) do
if Copy(Str,1+jK*iK,iK)<>'' then Ch:=Copy(Str,1+jK*iK,iK);
end;
我想这样处理一定能解决你的问题的.OK!