文件磁盘相关函数[2]-建立新文件 FileCreate

呵呵，第二期开始，都做成系列了，今天是5号，QQ与360闹剧进行了一个多月了，

在这打个广告，朋友新开YY群：2203118，需要大家多多支持，我也希望YY平台

有个好的DELPHI学习群，所以大家多多捧场，废话少说，大家看代码：

procedure TForm1.N6Click(Sender: TObject); //建立新文件 FileCreate
var
  FileName: string;
  i: Integer;      //声明函数返回值用到的变量
begin
  FileName := 'f:\test\test.txt';  //要创建的文件
  i := FileCreate(FileName);
  if i>0 then        //返回值大于0说明创建成功了
    ShowMessage('新文件的句柄是: ' + IntToStr(i))
  else
    ShowMessage('创建失败!');
    FileClose(i);    //个人感觉有句柄的东西如果不用就该释放它
end;

 

下面进行函数分析：

function FileCreate(const FileName: string  //要创建(文件)的文件名
         ): Integer   //如果函数成功则返回新建文件的句柄，否则返回0

 

此函数是对windows.FileCreate封装而来，参数变成只有一个，更详细大家可以参考http://www.cnblogs.com/keycode/archive/2010/11/03/1868154.html