vartf: textfile;
logfile: string;
txt :string;
sysdir:string;
//建立按鈕
procedure tform1.button1click(sender: tobject);
begin
if not directoryexists(sysdir+'log/') then
createdir(sysdir+'log/');
logfile:=sysdir+'log/'+formatdatetime('yyyymmdd',now)+'.txt';
end;
//寫日誌按鈕
procedure tform1.button2click(sender: tobject);
begin
//assignfile(logfile,'log.txt');
assignfile(tf,logfile);
if fileexists(logfile) then
else
rewrite(tf);
writeln(tf,'123');
closefile(tf);
end;
建立目錄及多級目錄
createdirectory 一次只能建立一級目錄,而且前級目錄需要判斷是否存在。用makesuredirectorypathexists 可以一次建立多級目錄,使用時注意 1 include link中加入imagehlp.lib 2 路徑名最後結尾要用 如要建立c aaa bbb ccc dd...
Delphi 目錄及子目錄所有檔案刪除
需要引用單元 shellapi function deldirectory const source string boolean var fo tshfileopstruct begin fillchar fo,sizeof fo 0 with fo do begin wnd 0 wfunc fo...
ionic建立專案及目錄結構
cnpm i g ionic cordova cd到某個檔案目錄下,ionic start ionicdemo tabs,建立過程中可以按ctrl c,再通過cnpm i,安裝所需要的依賴。ionic serve 建立新的元件 ionic g page componnetnameionic4.x是由...