张
张银豪
Unregistered / Unconfirmed
GUEST, unregistred user!
var
tmpstr:string;
buf :array[0..1024] of char;
i,j:integer;
begin
j:=length(tmpstr);
for i:=0 to j-1 do
begin
buf:=tmpstr[i+1];
end;
end;
感觉这样不行,请指出先进办法
tmpstr:string;
buf :array[0..1024] of char;
i,j:integer;
begin
j:=length(tmpstr);
for i:=0 to j-1 do
begin
buf:=tmpstr[i+1];
end;
end;
感觉这样不行,请指出先进办法