一个怪问题？关于#0与''

Question

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!
    

Answer 1

var somestr:string;
    strs:array of string; 
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;