存档的问题(30分)

  • 主题发起人 主题发起人 hi
  • 开始时间 开始时间
H

hi

Unregistered / Unconfirmed
GUEST, unregistred user!
请大家帮忙看看是怎么回事
(一个计时器的存档部分)
.......
var filename:string;
begin
memo1.lines.loadfromfile(edit1.text);
filename:='c:/aaa.sav';
memo1.lines.savetofile(changefileext(filename,'sav'));
end;
end.
编译通过生成*.EXE 执行时发生错误
内容如下
"project project1.exr raised exeption class efopenerror with messagt'
'connot open file 0:0:3'.process stopped.use step or run to continue."
如何解决。
thank you very much.
 
不能有':'
 
changefileext(filename,'sav')
'sav'不对,要 '.sav' .点不能少
 
直接写savetofile(filename)不行吗?
 
sigh
他的文件名有‘:’
 
改为这样看看:
memo1.lines.savetofile(changefileext(filename,'.sav'));
/~~~~~~
这一点"."很重要哦!
 
我试了一便以上方法无效 ):-(
问题依旧. My god
 
'connot open file 0:0:3
该句意思表示该文件名无效,因为文件名有‘:’
 
看来问题出在 edit1.text 是什么内容? edit1.text应该是文件名才对,

你不会是想把 edit1.text 的字符串保留在memo1.lines吧?
要是这样,要用 memo1.lines.Text=edit1.text

另外,changefileext(filename,'.sav'))

中filename可以是完整路径 changefileext('c:/sss/ddd/fff.dat','.sav'))
是有效的
 
pipi you are right!
thank you very much!
30呈上
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
769
import
I
S
回复
0
查看
928
SUNSTONE的Delphi笔记
S
后退
顶部