为什么运行时单击mtranbtn1按钮后运行到<--时出现错误---'I/O error 103'(50分)

F

fff-1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #1

procedure TForm2.MTranBtn1Click(Sender: TObject);
var
key:textfile;

begin
assignfile(key,'c:/key.txt');
reset(key);
writeln(key,'me2.text');
closefile(key)
<--

end;

end.
通过编译；
运行时单击mtranbtn1按钮后运行到<--时出现错误---'I/O error 103'；
为什么？如何解决？help help help；
谢谢；

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #2

文件不存在

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #3

rewrite ?

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #4

Reset(f):
......
......
If F is a text file, F becomes read-only.
.....

So writeln(f,'...') 是非法的

 

C

cch_b

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #5

对于TEXTFILE类型，RESET进行了之后只能进行读，而REWRITE虽然可
以写，但会把内容清空，所以不是很方便。不如这样，用TSTRINGS类型
的LOADFROM方法把文件读入TSTRINGS，用SAVETOFILE写回文件
procedure test;
var
a:tstrings;
begin
a:=tstringlist.create;
a.loadfrom('c:/a.txt');
做该做的事
a.savetofile('c:/a.txt');
end;

 

F

fff-1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #6

问题解决了
but
请问Textfile的操做函数---读文件？（用于新旧密码比对，旧密码从'c:/key'读出）；
有没有更好的方法？
请问TSTRINGS类型如何对文件进行改写？
不用memo。

 

T

tanglu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #7

申明一个变量为TMemoryStream，然后可以用Loadfromfile读文件内容。
可以修改TMemoryStream，最后用SaveToFile保存回文件。
如果是添加内容，先用Seek到文件末尾，在Save。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-17

• #8

多人接受答案了。