2 réponses
Voici pour lire le 2 eme octet d'un fichier
var Fs : TFileStream;
b : Byte;
Begin
Fs := TFileStream.Create('fichier',fmOpenReadWrite); //TFileStream.Create('ton fichier');
Fs.Seek(2,soFromBeginning) ; // Lire le 2eme octet
Fs.Read(b,1); // on met l'octet dans b
Fs.Free; //On libere tt
ShowMessage('octet : ' + IntToStr(b) + #13 + 'caractere : '+ Char(b));
End;
www.ProgZed.com
var Fs : TFileStream;
b : Byte;
Begin
Fs := TFileStream.Create('fichier',fmOpenReadWrite); //TFileStream.Create('ton fichier');
Fs.Seek(2,soFromBeginning) ; // Lire le 2eme octet
Fs.Read(b,1); // on met l'octet dans b
Fs.Free; //On libere tt
ShowMessage('octet : ' + IntToStr(b) + #13 + 'caractere : '+ Char(b));
End;
www.ProgZed.com
