delphi建立資料夾和檔案

2021-09-24 16:09:00 字數 2144 閱讀 8747

使用forcedirectories函式,該函式支援多級資料夾建立

1.建立資料夾

//全域性變數


const


rmb_suffixs : array[0..6] of string = ('.txt','.txt','0.txt','00.txt','000.txt','0000.txt','00000.txt');


varpaths : array[0..5] of string;


files : array[0..4] of textfile;
//origin：磁碟根目錄 例如d:\***


procedure makedir(origin:string;data:isuperobject);


begin


if origin <> '' then


begin


paths[0] := origin + '\mir200\envir';


paths[1] := origin + '\mir200\envir\market_def';


paths[2] := origin + '\mir200\envir\questdiary\充值'+'元寶'+'\'+'元寶';


paths[3] := origin + '\mir200\envir\questdiary\充值'+'元寶'+'\附加贈送';


paths[4] := origin + '\mir200\envir\questdiary\充值'+'元寶'+'\積分充值';


paths[5] := origin + '\mir200\envir\questdiary\充值'+'元寶'+'\裝備贈送';


paths[3] := paths[3]+'\'+'金剛石'+'贈送';


paths[4] :=  paths[4]+'\'+'消費積分'+'充值';


if not system.sysutils.directoryexists(paths[0]) then


system.sysutils.forcedirectories(paths[0]);


if not system.sysutils.directoryexists(paths[1]) then


system.sysutils.forcedirectories(paths[1]);


if not system.sysutils.directoryexists(paths[2]) then


system.sysutils.forcedirectories(paths[2]);


if not system.sysutils.directoryexists(paths[3]) then


system.sysutils.forcedirectories(paths[3]);


if not system.sysutils.directoryexists(paths[4]) then


system.sysutils.forcedirectories(paths[4]);


if not system.sysutils.directoryexists(paths[5]) then


system.sysutils.forcedirectories(paths[5]);


end;


end;
2.建立txt檔案

procedure makenpcfile(data:isuperobject);


varlist : tstringlist;


begin


tryif system.sysutils.directoryexists(paths[1]) then


begin


list := tstringlist.create;


list := npc(data);


assignfile(files[0],paths[1]+'\'+'元寶充值使者-1'+rmb_suffixs[0]);


rewrite(files[0]);


writeln(files[0],list.text.trim);


closefile(files[0]);


list.free;


end;


except


utils.log('建立npc使者失敗');


end;

Android建立資料夾和檔案

1 電子證據存放基本路徑 2private static string basepath 3 電子證據存放根路徑 4private static string evidencepath 5 基本存放路徑 6private static string imagebasepath 1 2 1 判斷sd卡...

android建立資料夾和檔案

這幾天做乙個功能需要在手機上建立乙個資料夾，然後往裡面儲存一些檔案，首先得考慮使用者有沒有sdcard，如果有就在sdcard上建立乙個指定的資料夾，如果沒有則在你的工程所在的目錄 data data 你的包名 下建立資料夾。用到的方法是 首先判斷sdcard是否插入 string status e...

linux中建立檔案和資料夾

linux資料夾或檔案建立 刪除 linux刪除資料夾命令 linux刪除目錄很簡單，很多人還是習慣用rmdir，不過一旦目錄非空，就陷入深深的苦惱之中，現在使用rm rf命令即可。直接rm就可以了，不過要加兩個引數 rf 即 rm rf 目錄名字 刪除目錄 檔案 rm remove 功能說明 刪除...