导航:首页 > 文件教程 > 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新建文件夹相关的资料

热点内容
网络中常用的传输介质 浏览:518
文件如何使用 浏览:322
同步推密码找回 浏览:865
乐高怎么才能用电脑编程序 浏览:65
本机qq文件为什么找不到 浏览:264
安卓qq空间免升级 浏览:490
linux如何删除模块驱动程序 浏览:193
at89c51c程序 浏览:329
怎么创建word大纲文件 浏览:622
袅袅朗诵文件生成器 浏览:626
1054件文件是多少gb 浏览:371
高州禁养区内能养猪多少头的文件 浏览:927
win8ico文件 浏览:949
仁和数控怎么编程 浏览:381
项目文件夹图片 浏览:87
怎么在东芝电视安装app 浏览:954
plc显示数字怎么编程 浏览:439
如何辨别假网站 浏览:711
宽带用别人的账号密码 浏览:556
新app如何占有市场 浏览:42

友情链接