why the following code is not right? the data write to file is wrong.
procedure TForm1.Button8Click(Sender: TObject);
var
buf: array of integer;
fp: TFileStream;
ii: integer;
begin
setlength(buf,10);
for ii:=0 to 9 do
begin
buf[ii]:=ii;
end;
fp := TFileStream.Create('c:\ttt',fmCreate );
fp.WriteBuffer(buf,10*sizeof(integer));
fp.Free;
end;
procedure TForm1.Button8Click(Sender: TObject);
var
buf: array of integer;
fp: TFileStream;
ii: integer;
begin
setlength(buf,10);
for ii:=0 to 9 do
begin
buf[ii]:=ii;
end;
fp := TFileStream.Create('c:\ttt',fmCreate );
fp.WriteBuffer(buf,10*sizeof(integer));
fp.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货