请问有关文件读写的问题，急！(50分)

G

ggbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-16

• #1

1。我想实现一个功能，就是在某一个复选框被打勾的时候，就往一个文本文件写一个字符串，程序如下：
AssignFile（F，'path');
reset (F);
if CheckListBox1.Checked[0];
then
i:="-A full ";
write(F, i);
但是一运行就提示有错误，是最后一行那里，说“Array Type Required”
哪位专家能够告诉我是怎么回事啊，应该怎么解决？
2。如果象上面这段程序还有很多if then
，那么最后的文本文件里的那么多字符串是怎么排列的，一行一个吗？？
3。最后我要把这个文件里的字符串连在一起作为一个程序的参数输出，应该用什么命令呢？
多谢各位！

 

P

pandababy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-16

• #2

i是string吗
把reset (F);改rewrite(F);
write(F, i);该writeln(F, i);
最后：CloseFile(F);
输出：
frm_main.memo2.lines.loadfromfile(F);

 

W

whtsuperant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-16

• #3

AssignFile（F，'path');
reset (F);
if CheckListBox1.Checked[0]<-有错吧;
then
i:="-A full ";
write(F, i)<-;要想一行一行就要用WriteLn

 

G

ggbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #4

我照你们说得做了啊
可是还是原来的问题
i是string没问题
一运行就在write那一行报错：“Array type required”

 

木

木子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #5

不能用String类型写进去了
Write(F, PChar(i)^);

 

G

ggbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #6

木子：
Write(F, PChar(i)^);
就写这么一行就行了吗？
我在前面var的地方加了i：PChar；
是不是不对啊，很菜，别笑话
还是抱原来那个错
棒棒我吧，搞定就加分，虽然我的也不多

 

木

木子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #7

i要String类型，不然你会出错的
按你的要求
for a := 0 to CheckListBox1.Items.Count - 1do
if CheckListBox1.Checked[a] then
begin
i:="-A full ";
Writeln(F, PChar(i)^);
end if

 

G

ggbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-17

• #8

谢谢木子，现在编译可以通过了，但是结果不对啊，写出来地文件只有每个字符串地第一个字母，后面就没了。是咋回事？