Salut !

j'ai un problème avec l'utilisation de BlockRead. En fait, le 1er appel que je fais pour lire un byte fonctionne correctement mais à partir du 2e appel, la fonction renvoie un résultat incorrect.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
   function Recherche_Infos_Fichier(Nom_Fichier :String):T_Infos_Fichier;
   var
      Infos : T_Infos_Fichier;
      byte : integer;
 
   begin
      AssignFile(Fichier_Met,Nom_Fichier);
      Reset(Fichier_Met);
 
 
      BlockRead(Fichier_Met,byte,1);
      ShowMessage(IntToHex(byte,1)); //Affichage correct ex : E0
 
      BlockRead(Fichier_Met,byte,1);
      ShowMessage(IntToHex(byte,1)); //Affichage incorrect ex : 512AA562 
 
      CloseFile(Fichier_Met);
 
      result := Infos;
   end;
Si quelqu'un pouvait m'aider ça serait cool... merci