Непонятка с чтением бинарника !!!

[AntyDrChert]

Если кому не сложно, помогите понять.
Есть файлы бинарные, так же есть структура. Но как прочитать не знаю...


YYYYMMDD.LOG ... Historyfile
YYYYMMDD.MIN ... Indexfile fЃr Minuten

Struktur der Historydatei (*.LOG)

Offset in Bytes  Index(USHORT)   ;      Wert (float)  ;
   0               1;                              000000;
   6               5;                               1;
  12              23;                              55;
  18             234;                              0.23;
                    .
                    .
                    .
 318               1;                              000100;
 324               5;                              1;
 330              23;                             55;
 336             234;                            0.23;
                    .
                    .
                    .

            Struktur der Indexdatei (*.MIN)

                 Index   (float)  ;              Wert  (float)   ;
 
   0            000000;                         0;
   8            000100;                         318;

Вроде должно как то так, но в итоге хрень какая-то...

var
  myWord, myWord1, myWord2 : real;
  myFile : File of real;

  i:integer;
begin

AssignFile(myFile, 'c:\123.min');

FileMode := fmOpenRead;
Reset(myFile);

while not Eof(myFile) do
  begin
    Read(myFile, myWord);
    beep;
  end;

[AntyDrChert]

type
  TMember =packed record
    index : word;
    wert  : real;
  end;



procedure TForm1.Button1Click(Sender: TObject);
var
F : file of TMember;
Member: TMember;
begin
AssignFile(f, 'c:\123.log');
Reset(F);
 try
   while not Eof(F) do begin
   BlockRead(f, Member, 6);
  end;
 finally
  CloseFile(F);
 end;

Вроде бы так, но Index показывает правильно, а значение Wert все равно не то. Может есть отличие сишного Float от Delphi real ????

[Stilet]

Пробуй double, и прекращай кросспостить.