关于文件读取(10分)

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-06

• #1

我是一个初学者，我想问一下在delphi中如何读取一行文本呢！
如：
assignfile(f,'a.txt');
reset(f);
while not eof(f) do
begin
readln(f,s); //他报 i/o error 32 难道readln是一下子就把文件中的内容全读出来了吗？
end;

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-06

• #2

可能文件不存在?

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-06

• #3

procedure TForm1.Button1Click(Sender: TObject);
var f: textfile;
s : string;
begin
assignfile(f,'c:/test.txt');
ReSet(f);
while not eof(f) do
begin
readln(f,s);
Memo1.Lines.Add(s);
end;
closefile(f);
end;

没有错误呀！

 

太

太阳火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-06

• #4

还有，如果文件是只读，必须把读取模式设为readonly（看看帮助吧）
否则会出错。不过不知道是不是I/o error

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #5

真奇怪，一样的代码同一个文件在单位就好了，在家就不成功，算了，我自己再看看！