想把文件保存到data目录中的问题--程序出错!(100分)

Z

zjmg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #1

begin
k1:=combobox1.text
//年
k2:=combobox2.text
//月
k3:=combobox3.text
//日
k1 := copy(k1, Length(k1)-1,2)
//取得年后两位数
begin
AssignFile(F,'/data/e17096'+k2+k3+'.'+k1)

Rewrite(F)

Write(F, Edit1.Text);
CloseFile(F);
end;
运行时报错，但去掉/data/则可以运行。为何加上路径就报错？

AssignFile()中不能包括文件路径吗？请教高手!

 

Y

yuzk2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #2

AssignFile(F,'/data/'e17096'+k2+k3+'.'+k1)
多一个引号
少end;

 

C

Corn3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #3

AssignFile(F,'/data/e17096'+k2+k3+'.'+k1);

 

A

a_Fung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #4

AssignFile(F,'/data/'e17096'+k2+k3+'.'+k1);
1.错误1 多了个引号 AssignFile(F,'/data/e17096'+k2+k3+'.'+k1)

2.没有盘符 如 AssignFile(F,'d:/data/e17096'+k2+k3+'.'+k1);

 

Z

zjmg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #5

按照楼上 AssignFile(F,'/data/e17096'+k2+k3+'.'+k1)
加上盘符也不行啊!
仍然报错! 提示:
project project1.exe raised exception class EInoutError with message 'Invalid filename'.

 

Q

qis2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #6

文件名是非法的,用showmessage('/data/e17096'+k2+k3+'.'+k1),查看一下是不是有什么問題

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #7

AssignFile(F,'/data/e17096'+k2+k3+'.'+k1)
//就是多了个斜杠
改一下
AssignFile(F,'data/e17096'+k2+k3+'.'+k1);

 

H

hzm7512

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #8

同意liyinwei，多了个斜杠
或者程序下面路径没有Data文件夹

 

Z

zjmg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #9

问题解决,谢谢各位!

 

Z

zjmg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-21

• #10

多人接受答案了。

 

A

a_Fung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-22

• #11

1.AssignFile(F,'/data/'e17096'+k2+k3+'.'+k1)
中多了个引号 AssignFile(F,'/data/e17096'+k2+k3+'.'+k1)

2.保存路径不完整 AssignFile(F,'d:/data/e17096'+k2+k3+'.'+k1);