Exemples pour coder avec Delphi Trucs et astuces Fichier

Obtenir un nom de fichier unique

function GetUniqueFileName(const AFileName, AExt: string): string; var iNum: integer; sFileName: string; beginif FileExists(AFileName + AExt) then begin iNum := 1; sFileName := AFileName +...
Delphi - Trucs et astuces - Fichier le 28/04/2009 vu 1423 fois Fobec

Vérifier la validité d'un nom de fichier

function IsValidFileName(Filename : string;IsLong : boolean) : boolean; const ShortForbiddenChars : set of...
Delphi - Trucs et astuces - Fichier le 23/01/2005 vu 1445 fois Communauté Delphi

Changer la date d'un fichier

procedure ChangeDateOfFile(FileName: string; NewDate: TDateTime); var TheFile: file; begin AssignFile(TheFile, FileName); Reset(TheFile); FileSetDate(TFileRec(TheFile).Handle, ...
Delphi - Trucs et astuces - Fichier le 17/01/2005 vu 3637 fois Communauté Delphi

Extraire la grande et la petite icone d'un fichier

//extraire les petites et grandes icone d'un exe, dll, ... procedure TForm1.Button1Click(Sender: TObject); var LargeIcon: HIcon; SmallIcon: HIcon; IconCount: Integer; i: Integer; FileName:...
Delphi - Trucs et astuces - Fichier le 17/01/2005 vu 1597 fois Communauté Delphi

Compresser/extraire plusieurs fichiers dans une archive

{Compresser plusieurs fichiers un derrière l'autre, puis les extraire vers un repertoire donnée. Bref un petit Winzip avec un format propriétaire en quelques lignes} uses Zlib; procedure ...
Delphi - Trucs et astuces - Fichier le 12/01/2005 vu 2404 fois Robert Kuhlmann

Savoir s'il s'agit d'un fichier binaire ou d'un fichier texte

function IsTextFile( const sFile: TFileName): boolean;//Created By Marcelo Castro - from Brazil var oIn: TFileStream; iRead: Integer; iMaxRead: Integer; iData: Byte; dummy: string; begin ...
Delphi - Trucs et astuces - Fichier le 02/01/2005 vu 1269 fois Marcelo Castro

Connaitre rapidement le nombre de fichiers d'un répertoire

function FileCount( const aFolder: string): Integer; var H: THandle; Data: TWin32FindData; begin Result := 0; H := FindFirstFile(PCHAR(aFolder + '*.*'), Data); if H ...
Delphi - Trucs et astuces - Fichier le 18/12/2004 vu 1446 fois Communauté Delphi

Savoir lorsqu'un nouveau fichier est crée

function WaitForFile(FileName: string): Boolean;{Wait for a file to be created. Tracks the directory were the file will be created.Returns true if file exists, false on error.} var WaitHandle:...
Delphi - Trucs et astuces - Fichier le 17/12/2004 vu 1216 fois Communauté Delphi

Utiliser les fonctions du Shell (Windows) pour la copie

uses Shellapi; TSHFileOpStructA = record Wnd:HWnd; wFunc:Uint; pFrom:PAnsiChar; pTo:PAnsiChar; fFlags:FILEOP_FLAGS; fAnyOperatiosAborted:Bool; hNameMappings:Pointer; ...
Delphi - Trucs et astuces - Fichier le 07/12/2004 vu 1661 fois SwissDelphiCenter

Obtenir rapidement la taille d'un fichier

function GetFilesize(sFileName: string; iPrecision: integer): string; var i: longint; f: file of byte; isize: extended; begin //desactiver les erreurs les erreurs d'E/S {$I-} ...
Delphi - Trucs et astuces - Fichier le 08/11/2004 vu 1395 fois Communauté Delphi
  • 59 articles - Page
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
Navigation
    Recevoir la newsletter
    Pour s'inscrire à notre newsletter, veuillez indiquer votre adresse email ci-dessous:

    Newsletter déjà parues