很简单的问题。就是如果知道我的指定目录里面有没有一个文件,有就略过。没有就创建。(0分)

  • 主题发起人 主题发起人 inbreak
  • 开始时间 开始时间
I

inbreak

Unregistered / Unconfirmed
GUEST, unregistred user!
如题。我在作一个数据库的程序。

可是有一个麻烦。我是想法是只发布一个可执行文件,数据库是后期创建的。。

也就是说,我要在程序启动时检查有没有luozs.db 文件,没有就创建。有就不创建喽。

程序如下:

var
Luozs:string;
begin
Luozs:='Luozs.db';
if Luozs <> (ExtractFilePath(Application.ExeName)+luozs) then
{先检查目录下是否存在 Luozs.db 数据库,如果不存在则...}
begin
showmessage('数据库不存在');
................{此部分为我创建数据库的部分}
end;
end;

当然编译说,不管有没有luozs.db文件。程序都说‘数据库不存在’(也就是我showmessage的那句话)

各位大哥各位大姐各位侠,帮帮小弟。。

小弟现在正在线等待中 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
 
你的路径:ExtractFilePath(Application.ExeName)+luozs写错了
应该是 if fileexists(ExtractFilePath+'/Luozs.db') then
..................
else
................
 
谢谢你。我试试 ̄ ̄
 
接受答案了.
 
后退
顶部