标题:(急)delphi文件保存问题
只看楼主
xiaxiangyang
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-11-4
 问题点数:0 回复次数:3 
(急)delphi文件保存问题
delphi 如何将txt文件保存在与exe文件相同的文件夹下。
如:
begin
AssignFile(list,'list.txt');
Rewrite(list,'list.txt');
CloseFile(list);
Memo.Lines.SaveToFile('list.txt');
end;
想将list.txt保存到与程序生成的exe文件相同的文件夹下。
希望能手指点一下!!!!!!感谢
搜索更多相关主题的帖子: delphi 文件 保存 
2006-11-05 13:00
fxzmodel
Rank: 2
等 级:新手上路
威 望:4
帖 子:50
专家分:0
注 册:2006-2-20
得分:0 
先用ChDir过程将你的当前目录设置为EXE文件所在的文件夹,然后再执行文件保存操作. CHDIR过程语法:procedure ChDir(const S: string); overload; procedure ChDir(P: PChar); overload;. 描述ChDir 会将当前目录改变为由S或P指定的路径。如果这个操作失败,异常EInOutError将会引发。
2006-11-05 19:40
形影随从
Rank: 1
等 级:新手上路
威 望:1
帖 子:188
专家分:0
注 册:2005-3-15
得分:0 
ExtractFilePath(Application.ExeName):用這API函數獲取當前執行文件的路徑覺得方便點.
Memo.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'list.txt');

2006-11-07 10:43
xiaxiangyang
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-11-4
得分:0 
非常感谢你们了 !!!!![em10]
2006-11-10 12:18



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-100859-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.540943 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved