System.SysUtils.FileCreate

• Aller au parent : System.SysUtils

Delphi

function FileCreate(const FileName: string): THandle;
function FileCreate(const FileName: string; Rights: Integer): THandle;
function FileCreate(const FileName: string; Mode: LongWord; Rights: Integer): THandle;

C++

extern DELPHI_PACKAGE NativeUInt __fastcall FileCreate(const System::UnicodeString FileName)/* overload */;

Propriétés

Type	Visibilité	Source	Unité	Parent
function	public	System.SysUtils.pas System.SysUtils.hpp	System.SysUtils	System.SysUtils

Description

Crée un nouveau fichier.

FileCreate crée un nouveau fichier avec le nom spécifié. Si la valeur de retour n'est pas INVALID_HANDLE_VALUE, la fonction a réussi et la valeur est le handle du nouveau fichier. Une valeur de retour de INVALID_HANDLE_VALUE indique qu'une erreur s'est produite.

Le type de retour pour FileCreate est passé d'un type entier à THandle.

 var
   MyFile: THandle;
 begin
   MyFile := FileCreate('C:\temp\bla.txt');
   if MyFile = INVALID_HANDLE_VALUE then
     raise Exception.Create('File already exists');
 end;

Pour émuler le comportement précédent, transtypez la valeur de retour de FileCreate en un NativeInt, une valeur de retour de -1 indique alors une erreur. Voici un extrait de code montrant la procédure à suivre.

var
  MyFile: Integer; // for 32bit platform.
begin
  MyFile := NativeInt(FileCreate('C:\temp\bla.txt'));
  if MyFile = -1 then
    raise Exception.Create('File already exists');
end;

Remarque : Sur Windows, la variable FileAccessRights et le paramètre Rights sont ignorés.

Voir aussi

• System.SysUtils.FileClose

• System.SysUtils.FileOpen

• System.AssignFile

• Support des entrées et des sorties des fichiers

Exemples de code

• ExtractFileName (C++)
• ExtractFileName (Delphi)