procedure TForm1.Button1Click(Sender: TObject);
var
F:textfile;
num:integer;
begin
assignfile(F,'d:/spy/00.idx')
Reset(F);
end;
end.
错误提示：missing operator or semicolon

procedure TForm1.Button1Click(Sender: TObject);
var
F:textfile;
num:integer;
begin
assignfile(F,'d:/spy/00.idx');//你缺了这个分号
Reset(F);
end;
end.

太不好意思了，这么弱智的问题还麻烦你指出来，真不愧是版主啊。