Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Sub FillMemory Lib "kernel32.dll" Alias "RtlFillMemory" (Destination As Any, ByVal Length As Long, ByVal Fill As Byte)
 
Public Sub WriteEntete(Head As Entete, Fichier As TextStream)
Dim S As String
 
    ' allocation de la chaine qui contiendra l'enregistrement
    S = Space(240)
     
    ' copie de l'entête dans un string pour être écris dans le fichier
    CopyMemory ByVal S, Head, 240
    Fichier.WriteLine (S)
End Sub
 
Public Sub InitRecord(Record As Entete)
    ' initialisation de l'enregistrement avec des espaces
    FillMemory Record, 240, 32
End Sub