wgrk.net
当前位置:首页 >> DElphi FilEExists >>

DElphi FilEExists

你看看你写的这句“if FileExists(pchar(extractFilePath(application.exeName)+'newFile\123.txt')); ”,后面还带了一个分号“;” ,你先把问题弄好再往下看吧~,首先如果在想在某个文件夹中创建文本话,你首先得保证这个文件夹的存在,要不怎么...

在 Delphi 里可以使用 FileExists / DirectoryExists 函数来判断指定文件、文件夹是否存在,也可以使用 GetFileAttributes 函数来获取指定目标属性来判断,以下是示例: procedure TForm1.Button1Click(Sender: TObject);begin if FileExists('e...

应该先用: chdir(getcurrentdir); 设置程序所在目录为默认目录,后面就不需要设置和检测目录了。 或者类似用: Create(getcurrentdir+'\setup.ini');

ForceDirectories('D:\新文件夹'); 或md('D:\新文件夹'); procedure TForm1.Button1Click(Sender: TObject); begin if not DirectoryExists('D:\bnabinge') then begin ForceDirectories('D:\bnabinge'); end else begin Messagebox(Handle,'文...

Dephi 7 帮助里的原文,不用翻译吧 DirectoryExists function Determines whether a specified directory exists. The following example creates a directory C:\temp if it does not already exist. uses FileCtrl; procedure TForm1.Button1C...

这是转自网上的代码,你可以试试:// Unicode文件写入函数procedure SaveUnicodeFile(const FileName:string; const S: string; WriteHeader: Boolean = True);var MemStream: TMemoryStream; HeaderStr: string; WStr: WideString;begin if S =...

使用TIdHTTP控件 try IdHTTP.Head(URL); except showmessage('未连接到Internet或者文件不存在!'); end;

给你一个写日志的函数吧,只需要传内容进去即可,自动记录时间的,日志保存在'c:\ErpRunLog.txt'下 procedure writeWorkLog(sqlstr: string); var filev: TextFile; ss: string; begin sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr; ss:='c:\ErpRun...

把你上面的代码写成这样就可以执行 begin with OpenDialog1 do begin Filter:='文本文件(*.txt)|*.txt'; DefaultExt:='txt'; FileName:=''; Options:=[ofHideReadOnly,ofEnableSizing]; if opendialog1.Execute then if ofExtensionDifferent in...

* 编 译 错 误 信 息 * ******************************* ’;’ not allowed before ’ELSE’ ElSE前不允许有“;” ’<clause>’ clause not allowed in OLE automation section 在OLE自动区段不允许“<clause>”子句 ’<name>’ is not a type identi...

网站首页 | 网站地图
All rights reserved Powered by www.wgrk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com