Enregistrer un tableau à 2 dimensions vers un fichier


Commenter

Contenu du snippet 

 type
   T2DimArray = array[0..255, 0..255] of byte;
 
 
 procedure Save(const FileName: string; const A: T2DimArray);
 begin
   with TFileStream.Create(FileName, fmCreate) do
   try
     WriteBuffer(A, SizeOf(T2DimArray));
   finally
     Free;
   end;
 end;
 
 
 procedure Load(const FileName: string; var A: T2DimArray);
 begin
   with TFileStream.Create(FileName, fmOpenRead) do
   try
     ReadBuffer(A, SizeOf(T2DimArray));
   finally
     Free;
   end;
 end;

Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

Du même auteur (PCPT)