procedure ......:byte; //读取一字节自定义函数;
If Address > NumRead then //全局integer型 初始:address:=2,numread:=0
begin
numread:=InputStream.Read(RDBuffer,2048);//此资源文件为几百K;
Address := 1;
end;
result := RdBuffer[Address];
inc(Address);
end;另一方法;
procedure ......:byte;
inputstream.read(buffer,1);
result:=buffer;
end;看起来好像是第一种方法快一些!!但是不明白!!谁能给个合理通俗的解释!!
If Address > NumRead then //全局integer型 初始:address:=2,numread:=0
begin
numread:=InputStream.Read(RDBuffer,2048);//此资源文件为几百K;
Address := 1;
end;
result := RdBuffer[Address];
inc(Address);
end;另一方法;
procedure ......:byte;
inputstream.read(buffer,1);
result:=buffer;
end;看起来好像是第一种方法快一些!!但是不明白!!谁能给个合理通俗的解释!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货