sos!!!!急急急！！！！！！！！！！！！！！！！！！！！！！！

Question

谁能给我指点解决错误的办法啊？？/
type
test=record
id:string[10];
name:string[10];
end;
var 
data:test;
datafile:file of test;
procedure tform1.button1click(....);
begin
assignfile(datafile,'g:\test\1.text');
filemod:=2;
reset(datafile);//出错*****他说我的文件名变量datafile无效********
seek(datafile,filepos(datafile));
data.id:=edit1.text;
data.name:=edit2.text;
write(datafile,data);
closefile(datafile);
end;

Answer 1

改成
这样就好了
type
test=record
id:string[10];
name:string[10];
end;procedure TForm1.Button1Click(Sender: TObject);
var
data:test;
datafile:file of test;
filemod: Integer;
begin
assignfile(datafile,'g:\test\1.text');
filemod:=2;
reset(datafile);//出错*****他说我的文件名变量datafile无效********
seek(datafile,filepos(datafile));
data.id:=edit1.text;
data.name:=edit2.text;
write(datafile,data);
closefile(datafile);
end;