Salut tout le monde
J'essaye de lire un fichier contenant des valeurs numériques codées en binaire.
Pour le faire j'ai choisi d'utiliser TfileStream pour pouvoir naviguer facilement dans le fichier.
Le problème est que avec mes conaissances actuelles en programmation Delphi je suis incapable de transcrire dans une variable integer un nombre entier codé en deux bytes

Voila ce que j'ai bricole


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
21
Procédure TForm1.Button2Click(Sender: TObject);
 var
     Fichier_Stream : TFileStream;
     x_Bytes :Array of Byte;
 begin
if opendialog1.Execute then begin
Edit1.Text:=opendialog1.FileName;
if not FileExists(Edit1.Text) then exit;
memo1.clear;
Application.ProcessMessages;
Fichier_Stream := TFileStream.Create(Edit1.Text,fmOpenRead);
SetLength(x_Bytes, 2);
Fichier_Stream.Seek(0,soFromBeginning) ;
Fichier_Stream.Read(x_Bytes[0],2);
///
///          Je bloque ici
///   Je souhaiterais, en faite, afficher dans ma memo1 la valeur en décimal de du nombre codée en 2 bytes  x_Bytes
///
 
end;
end;

Quelqu’un aurait il un idée pour me débloquer



Merci