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.
Si quelqu'un pouvait m'aider ça serait cool... merci
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;
Partager