Enregistrer un tableau de Bytes dans un fichier


Commenter

Contenu du snippet 

type
   pByteArray = ^TByteArray;
   TByteArray = array[0..255] of byte;
 
 procedure WriteByteFile(const FileName : string; const BA : TByteArray);
 var TFS : TFileStream;
 begin
   TFS := nil;
   try
     TFS := TFileStream.create(FileName, fmCreate);
     TFS.WriteBuffer(BA,SizeOf(TByteArray));
   finally
     TFS.Free;
   end;
 end;
 
 
 
utilisation :

procedure TForm1.FormCreate(Sender : TObject);
 var TBA : TByteArray;
     x : integer;
 begin
   for X := 0 to 255 do TBA[X] := 255;
   WriteByteFile('c:\test.bin',TBA);
 end;

Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

Du même auteur (Nix)