（急）delphi文件保存问题

xiaxiangyang 发布于 2006-11-05 13:00， 1391 次点击

delphi 如何将txt文件保存在与exe文件相同的文件夹下。
如：
begin
AssignFile(list,'list.txt');
Rewrite(list,'list.txt');
CloseFile(list);
Memo.Lines.SaveToFile('list.txt');
end;
想将list.txt保存到与程序生成的exe文件相同的文件夹下。
希望能手指点一下！！！！！！感谢

3 回复

fxzmodel2006-11-05 19:40

先用ChDir过程将你的当前目录设置为EXE文件所在的文件夹,然后再执行文件保存操作. CHDIR过程语法:procedure ChDir(const S: string); overload; procedure ChDir(P: PChar); overload;. 描述ChDir 会将当前目录改变为由S或P指定的路径。如果这个操作失败，异常EInOutError将会引发。

形影随从2006-11-07 10:43

ExtractFilePath(Application.ExeName):用這API函數獲取當前執行文件的路徑覺得方便點.
Memo.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'list.txt');

xiaxiangyang2006-11-10 12:18

非常感谢你们了！！！！！[em10]