procedure TForm1.Button1Click(Sender: TObject);
var
FileSet:TFileStream;
b:Array[0..1] of byte;
i:Integer;
begin
FileSet.Create('E:\\aa.exe',fmOpenRead);
for i:=1 to FileSet.Size do
begin
j:=FileSet.Read(b,1);
end;end;作用只是一个个字节地读exe文件,但是却出错了。请问什么原因呢?谢谢。
var
FileSet:TFileStream;
b:Array[0..1] of byte;
i:Integer;
begin
FileSet.Create('E:\\aa.exe',fmOpenRead);
for i:=1 to FileSet.Size do
begin
j:=FileSet.Read(b,1);
end;end;作用只是一个个字节地读exe文件,但是却出错了。请问什么原因呢?谢谢。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货