如何修改他？

[zhenww]

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(SaveFile,'text.log');
mySize:=sizeof(D1);
Rewrite(saveFile,1);
try
// seek(SaveFile,0);
// setlength(newArrayData,5);
newArrayData[5]:=1;
newArrayData[1]:=2;
newArrayData[2]:=3;
newArrayData[3]:=4;
newArrayData[4]:=5;

Blockwrite(savefile,newArrayData,length(newarraydata)*4,count);

finally
CloseFile(saveFile);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
assignfile(savefile,'text.log');
reset(savefile,1);
fsize:=filesize(savefile);
setlength(MyArraydata,fsize div 4);
BlockRead(savefile,MyArraydata,5,count);
CloseFile(saveFile);
end;

end.

[wzs]

procedure TForm1.Button1Click(Sender: TObject);
var
savefile:filetext;
mysize:integer;
........//你变量都没定义下一过程也是一样
begin
AssignFile(SaveFile,'text.log');
mySize:=sizeof(D1);
Rewrite(saveFile,1);
try
// seek(SaveFile,0);
// setlength(newArrayData,5);
newArrayData[5]:=1;
newArrayData[1]:=2;
newArrayData[2]:=3;
newArrayData[3]:=4;
newArrayData[4]:=5;

Blockwrite(savefile,newArrayData,length(newarraydata)*4,count);

finally
CloseFile(saveFile);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
assignfile(savefile,'text.log');
reset(savefile,1);
fsize:=filesize(savefile);
setlength(MyArraydata,fsize div 4);
BlockRead(savefile,MyArraydata,5,count);
CloseFile(saveFile);
end;

end.


--------------------------------------------------------------------------------

我要回复： 有人参与讨论这个问题，请用EMail通知我