delphi7下奇怪出错 ( 积分: 20 )

var f:file;c:char;
begin
assignfile(f,'test.dat');
reset(f);
seek(f,2);
while not eof(f) do
read(f,c);//delphi7下出错:Incompatible types:'procedure,untyped pointer or untyped parameter'and 'Char'
closefile(f);

var f:file;c:char;
begin
assignfile(f,'test.dat');
reset(f);
seek(f,2);
while not eof(f) do
read(f,c);//delphi7下出错:Incompatible types:'procedure,untyped pointer or untyped parameter'and 'Char'
closefile(f);

char??
Pchar!

同意楼上的观点。

樓主用的文件類型不對吧，你再看看Delphi幫助

下面是一個Delphi的例子
var

F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;

end;

delphi6下编译通过啊[!][!][!]

多人接受答案了。