导航:首页 > 文件教程 > delphi新建文件夹

delphi新建文件夹

发布时间:2021-12-03 01:29:34

1. delphi 如何在指定目录下创建文件

the method is so more. such as following,
var
list : TStringlist;
begin
list := TStringlist.Create;
list.DelimitedText := '1900-11-16';
list.SaveToFile('F:\test.txt'); //create text file in disk F:
list.Free;
end;

2. 如何用DELPHI创建一个文件夹和一个文本文件

创建文件:
CreateFile(FileName, fmCreate,)
创建文件夹:
ForceDirectiory
帮助里面有这两个函数的详细说明。

3. delphi 怎么新建文件

同意楼上的,有点笔误
myinifile.redainteger('小节名','关键字','缺省值');//读取整数型数据。
应为
myinifile.readinteger('小节名','关键字','缺省值');//读取整数型数据

创建一个文件的函数:
function FileCreate(const FileName: string): Integer;

Description
FileCreate creates a new file with the specified name. If the return value is positive, the function was successful and the value is the file handle of the new file. A return value of -1 indicates that an error occurred.

4. delphi的文件操作,比如创建一个文件是怎样操作的(只创建一个空文件)

var
filename:string;
FHandle:integer;
begin
filename:='e:\database.txt';
if(not fileexists(filename))then
begin
FHandle:=filecreate(filename);
end;

5. Delphi 7创建文件夹的问题

DateToStr()返回的字符串格式跟系统的日期分隔符有关,只有当系统的日期分隔符是“-”和“.”时,用返回回的字符串通过答ForceDirectories()创建文件夹才会成功。系统的日期分隔符是“/”时是不行的。 在XP下也一样。系统的日期分隔符在用资源管理器浏览文件的“详细信息”视图下就看得出来。

6. 怎麼用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);
}
}

7. delphi中CreateDirectory和CreateDir有什么区别创建文件夹的同时能定义文件夹的属性吗

CreateDir也是通过调用CreateDirectory实现的,只是简化了参数,并且增加了linux支持。
CreateDirectory只能用于回windows编程。CreateDir在linux下Kylix也能调用,答使代码的兼容性、可移植性更强。

在SysUtils单元中:
function CreateDir(const Dir: string): Boolean;
begin
{$IFDEF MSWINDOWS}
Result := CreateDirectory(PChar(Dir), nil);
{$ENDIF}
{$IFDEF LINUX}
Result := __mkdir(PChar(Dir), mode_t(-1)) = 0;
{$ENDIF}
end;

8. 我想在DELPHI 中在本机PROGRAM FILES 文件夹下建立一个目录123

var
adr:array[0..MAX_PATH] of Char;
begin
GetSystemDirectory(adr,MAX_PATH);

end;

adr里面就是你想要的路径,然后在去创建目录去。

9. delphi怎么创建以当前日期命名的文件夹

CreateDirectory( PChar( 'C:\' + FormatDateTime( 'yyyymmdd', Now ) );

10. delphi 如何创建文件夹

forcedirectories和CreateDirectory都能创建文件 ForceDirectories可以创建多层目录. 如果你创建一个目录为c:\mymusic\music 如果你的C盘不存在一个叫mymusic的文件夹 的话程序会自动创建,函数执行的结果是, 创建了两个文件夹,mymusic和music,music为 mymusic的子文件夹. CreateDirectory只能创建一个文件夹,如果 mymusic不存在,则反回创建music文件夹失败! procere TMain.WriteVPTXT(str:string);varMytextFile : TextFile; tempstr : string; SysTime: TsystemTime;begintryGetLocalTime(SysTime); //AssignFile(MyTextFile,'D:\delphi\delphitest\time.ini'); if not DirectoryExists('D:\Test') then CreateDirectory('D:\Test',nil); //创建单个目录 // forcedirectories ('D:\Test'); //创建多层目录 tempstr:='D:\Test\'+inttostr(Systime.wYear)+inttostr(systime.wMonth)+inttostr(systime.wDay)+'.txt'; AssignFile(MyTextFile,tempstr); if not fileExists(tempstr) then ReWrite(MyTextFile) else Append(MyTextFile);

阅读全文

与delphi新建文件夹相关的资料

热点内容
数据线圆头什么意思 浏览:768
协和app怎么取号 浏览:664
c坐标转换代码 浏览:707
唐筛数据为什么能看出男女 浏览:44
快手java 浏览:835
qq分享的文件在哪里 浏览:226
爱念电影 浏览:656
97不用下载播放器的 浏览:649
在线观看0855影视 浏览:489
女主叫向晚棠的小说 浏览:841
uglifyjs使用 浏览:328
西班牙最大寸度电影 浏览:641
孤寂之狼txt无删笔趣阁 浏览:895
微程序微指令微操作机器指令 浏览:370
百合小说下载 浏览:477
iphone7怎么新建文件夹 浏览:339
如何用复印机打印u盘文件 浏览:377
哪里可以下载deb文件 浏览:958
怎么看建行app号码 浏览:62
主角姓叶的被家族遗弃 浏览:650

友情链接