delphi建文件夾
A. delphi中CreateDirectory和CreateDir有什麼區別創建文件夾的同時能定義文件夾的屬性嗎
CreateDirectory可以再創建目錄是指定文件夾的屬性,CreateDir則不能。
B. delphi xe5怎麼讓image圖片自動保存並新建文件夾
image沒有自動保存功能,除非你派生一個能這么做的類,一切都靠你自己掌握
C. Delphi 7創建文件夾的問題
DateToStr()返回的字元串格式跟系統的日期分隔符有關,只有當系統的日期分隔符是「-」和「.」時,用返回的字元串通過ForceDirectories()創建文件夾才會成功。系統的日期分隔符是「/」時是不行的。 在XP下也一樣。系統的日期分隔符在用資源管理器瀏覽文件的「詳細信息」視圖下就看得出來。
D. 我想在DELPHI 中在本機PROGRAM FILES 文件夾下建立一個目錄123
var
adr:array[0..MAX_PATH] of Char;
begin
GetSystemDirectory(adr,MAX_PATH);
end;
adr裡面就是你想要的路徑,然後在去創建目錄去。
E. 怎麼用delphi建立一個文件夾
給你個函數吧
/*******************************************************************************
* 建立文件夾路徑函數 *
*******************************************************************************/
int SearchStr(CString Source,char SearChar,int Howth) //搜索匹配的字元位置
{
int HowBit;
HowBit = Howth;
int len = strlen(Source);
for (int i = HowBit;i <len;i++)
{
if (Source[i] == SearChar)
{
return i;
break;
}
}
return -1 ;
}
/*******************************************************************************
* 建立文件夾 *
*******************************************************************************/
void CreatePath(CString Path)
{
int SearSult = SearchStr(Path, ': ',1);
CString a;
CString Pathstr;
int len = strlen(Path);
while(SearSult != -1)
{
SearSult = SearchStr(Path, '\\ ',SearSult+3);
if(SearSult!=-1)
{
Pathstr = Path.Left(SearSult);
if(_access(Pathstr,0)!=0)
CreateDirectory(Pathstr,0);
}
else
break;
}
if(Path[len-1]!= '\\ ')
{
if(_access(Path,0)!=0)
CreateDirectory(Path,0);
}
}
F. 如何用DELPHI創建一個文件夾和一個文本文件
創建文件:
CreateFile(FileName, fmCreate,)
創建文件夾:
ForceDirectiory
幫助裡面有這兩個函數的詳細說明。
G. 用delphi7.0寫一個生成文件夾的程序
var
path:string;
str:TStringList;
begin
path:='C: est';
CreateDir(path);
str:=TStringList.create;
str.text:='這是測試';
str.savetofile(path+'file.txt');
str.free;
end;
H. Delphi判斷文件夾是否存在,不存在就創建一個
delphi 判斷文件夾目錄可以使用 DirectoryExists 函數,而創建目錄可以使用 CreateDir 和ForceDirectories 函數。
CreateDir 和ForceDirectories 函數都可以創建文件夾,兩者的區別在於:
ForceDirectories 創建多級目錄,父目錄不必存在;而 CreateDir 只能創建最後的一級目錄,父目錄必須存在。舉例說明:
如果需要建立 d:path1subPath1,那麼CreateDir 函數只能先建立d:path1(或必須該路徑存在),再建立d:path1subPath1。而用ForceDirectories 函數可以一次性建立。
示例代碼如下:
procereTForm1.Button1Click(Sender:TObject);
begin
ifnotDirectoryExists(Edit1.Text)then//判斷目錄是否存在
try
begin
ForceDirectories(Edit1.Text);//創建目錄
end;
finally
raiseException.Create('無法建立路徑:'+Edit1.Text);
end;
end;
I. 如何禁止 delphi 創建history文件夾
//創建單個文件夾
uses Windows;
CreateDirectory('C:/history', nil);
//創建多級文件夾
uses FileCtrl;
ForceDirectories('C:/history/1/2/3');