Readln(f,s);--为什么这里通不过编译,出错(50分)

zhengjp · 2008-12-22

如下:Readln(f,s);--为什么这里通不过编译,出错
var
F:file of shortstring;
s,t:shortstring;
begin
Assignfile(F,'c:/Loginame.dat');
if FileExists ('c:/Loginame.dat')=false then
begin
rewrite(F); {Loginame.ini 如果不存在，自动创建一个对应文件}
t:='adf';
write(f,t);
end
else
begin
Reset(F);
Readln(f,s);--为什么这里通不过编译,出错
showmessage(s);
end;
closefile(F);
end;

luoyanqing119 · 2008-12-22

是不是Loginame.dat为只读，或许权限不够。

zhengjp · 2008-12-22

luoyanqing119:不存在你所说的情况

李翔鹏 · 2008-12-22

报的什么错

luoyanqing119 · 2008-12-22

F:file of shortstring;这申明有问题，你是用文件字符关联
----------------------------------------------------------------
var
F:TextFile;//file of shortstring;
s,t:shortstring;
begin
Assignfile(F,'c:/Loginame.dat');
if FileExists ('c:/Loginame.dat')=false then
begin
rewrite(F); {Loginame.ini 如果不存在，自动创建一个对应文件}
t:='adf';
write(f,t);
end
else
begin
Reset(F);
Readln(F,s);//--为什么这里通不过编译,出错
showmessage(s);
end;
closefile(F);
end;
---------------------------如果把前边申明的改一下，就OK了。这个编译通过。

zhengjp · 2008-12-23

我申请的是类型文件: type Tfile=file of 数据类型
f:file of shortstring;是合法的!即只能将字符类型写到F中
是不是我读取类型文件不对?
注:以上代码是我随写的,可能有些地方不准.

wql · 2008-12-23

是read不是readln

李翔鹏 · 2008-12-23

read不是readln ？
这两个不是错误的原因吧

luoyanqing119 · 2008-12-23

var
F:TextFile;//file of shortstring;
你要是用F:file of shortstring;的话，只能用read了。

zhengjp · 2008-12-26

多人接受答案了。

Readln(f,s);--为什么这里通不过编译,出错(50分)

zhengjp

Unregistered / Unconfirmed

luoyanqing119

Unregistered / Unconfirmed

zhengjp

Unregistered / Unconfirmed

李翔鹏

Unregistered / Unconfirmed

luoyanqing119

Unregistered / Unconfirmed

zhengjp

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

李翔鹏

Unregistered / Unconfirmed

luoyanqing119

Unregistered / Unconfirmed

zhengjp

Unregistered / Unconfirmed

Similar threads