文件read的问题！

[cxfirefox]

为什么老是出现read语句类型不匹配的错误呢？
procedure TForm1.Button1Click(Sender: TObject);
var c:char;
begin
if opendialog1.Execute then
assignfile(temfile,opendialog1.FileName);
reset(temfile);

while not eof(temfile) do
read(temfile,temstr);
closeFile(temfile);
end;

[wdsimon]

temfile在哪里声明的？
var
temfile：textfile试试。

[tjff2000]

对呀，你的temfile和temstr都没声明的，而且c声明了却没用。
var
temfile:textfile;
temstr:string;
试试看吧。

[cxfirefox]

temfile和temstr是全局变量，temfile是file类型，仍然不行，但是如果定义成textfile类型就好，这是怎么回事呢？