我用opendialog 打开一个mp3的文件
然后用一个字符串变量"s"把这个文件的文件名取下来(opendialog.filename)
然后再把这个变量"s"加入一个memo中最后再保存这个memo中的内容到"abac.txt"
但是,在实际过程中不可以savetofilename("")为什么呀代码:
.....
.....
....
var
form1:tform;
.......
s:string;
i:integer;
produce button1....(按钮1)
begin
if opendialog1.execute then
begin
listbox1.items.add(opendialog1.filename)
s:=s+'aaa'+inttostr(i)+opendialog1.filename+'&'
i:=i+1;
end;
end;produce button2...(按钮2)
var
memo1:tmemo;
begin
memo1:=tmemo.create(self);
memo1.parent:=form1;
memo1.line.add(s);
memo1.line.savetofilename('abc.txt')
endproduce formcreate...
begin
s:=''
i:=0
end
///////////////////
其实我就是想先提取一个文件的路径然后再把这个路径保存在一个文本文件中
还有什么好的办法请教教我!
然后用一个字符串变量"s"把这个文件的文件名取下来(opendialog.filename)
然后再把这个变量"s"加入一个memo中最后再保存这个memo中的内容到"abac.txt"
但是,在实际过程中不可以savetofilename("")为什么呀代码:
.....
.....
....
var
form1:tform;
.......
s:string;
i:integer;
produce button1....(按钮1)
begin
if opendialog1.execute then
begin
listbox1.items.add(opendialog1.filename)
s:=s+'aaa'+inttostr(i)+opendialog1.filename+'&'
i:=i+1;
end;
end;produce button2...(按钮2)
var
memo1:tmemo;
begin
memo1:=tmemo.create(self);
memo1.parent:=form1;
memo1.line.add(s);
memo1.line.savetofilename('abc.txt')
endproduce formcreate...
begin
s:=''
i:=0
end
///////////////////
其实我就是想先提取一个文件的路径然后再把这个路径保存在一个文本文件中
还有什么好的办法请教教我!
解决方案 »
- 关于combobox的使用问题
- (来者有分)头儿分配的项目,目前一点头绪都没有,请各位DX指个方向
- 昨天遇到的事,狂汗!
- 在win2k/xp/2003下面开发、编译的程序,为什么不能在win98下面运行???一点击,就出现一个错误,大概意思是:不是合法的win32应用程序
- 如何发布有关数据库管理的应用程序?
- 小弟看了帮助文件,有一些疑问.请大家帮忙解决.(一定给分)
- 如何读取磁盘文件名及文件目录?
- 请问,在程序启动时,要如何拦截单数据库不存在的异常,使英文提示不出现,在我窗体的create事件中,进行判断数据库是否存在,如不存在触发异常,可是还是有几个英文提示出现,难道不是在窗体的create事件中拦截单数据库不存在的异常吗?
- 圣诞节,送分,高手请入
- Who can tell me how to create Nt Server and connect in delphi 5.x ?
- 数据集的传递中的奇怪现象(在线)
- EstackError: StackOverflow?
memo1.lines.savetofile('abc.txt');