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

Z

zhengjp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-22

• #1

如下: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;

 

L

luoyanqing119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-22

• #2

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

 

Z

zhengjp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-22

• #3

luoyanqing119:不存在你所说的情况

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-22

• #4

报的什么错

 

L

luoyanqing119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-22

• #5

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了。这个编译通过。

 

Z

zhengjp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-23

• #6

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

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-23

• #7

是read不是readln

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-23

• #8

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

 

L

luoyanqing119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-23

• #9

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

 

Z

zhengjp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-26

• #10

多人接受答案了。