Binärdatei mit TFileStream auslesen

[litsa]

Hallo!

Ich bin jetzt soweit dass ich Daten mit TFileStream ausgelesen bekomme, die schauen aber nicht so aus wie sie sollten! Mit dem array [0..maxbuff] of byte weiss ich ehrlich gesagt nicht wie ich die Werte auslesen soll.

Ich habe ja 2 functions, einmal für die Uhrzeit und einmal für den Wert. Die Binärdatei ist so aufgebaut, dass für jede Minute eines Tages 350 Werte gespeichert werden. Ich muss also jedesmal den ersten Wert als Uhrzeit speichern, dann die 350 Werte und das ganze 24*60*60 Mal.

Aber schon bei der Uhrzeit bekomme ich keine korrekte Daten heraus, bzw. nicht alle:

Delphi-Quellcode:

type
  TDatensatz = packed record
  HH, HL, LH, LL: Byte;
end;

function ZWert(ld: TDatensatz): Double;
var w: Double;
    v: boolean;
begin
  if ld.HH > 128 then
    begin
      ld.HH := ld.HH -128;
      v := True;
    end
      else v := False;
    w := (ld.HH * 256 * 256 * 256) + (ld.HL * 256 * 256) + (ld.LH * 256 + ld.LL);
    if v = true then w := w -2147483648;
    ZWert := w/100;
end;

function ZTime(ld: TDatensatz): String;
var w, s, m: longint;
begin
  w := ld.LH * 256 + ld.LL;
  s := Trunc(w/100);
  m := w - s * 100;
  if (s > -1) and (s < 24) and (m > -1) and (m < 60) then
    ZTime := IntToStr(s) + ':' + IntToStr(m)
  else
    ZTime := '--:--';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FS, Uhrzeit, Wert: String;
  lDatensatz: TDatensatz;
  lStream: TFileStream;
  pList: TStringList;
begin
  pList := TStringList.Create;
  FS := '100322.MIN';
  if (not FileExists(FS)) then Exit;
  while (lStream.position + SizeOf(lDatenSatz)) <= lStream.size do
    begin
      lStream.Read(lDatenSatz, SizeOf(lDatenSatz));
      Uhrzeit := ZTime(lDatenSatz);
      if not (Uhrzeit = '--:--') then
        begin
          Memo2.Lines.Add(Uhrzeit);
          pList.Add(IntToStr(lStream.position)); //Pos. der Uhrz. speichern
        end;
    end;
  //hier dann Werte auslesen
  lStream.Free;
  pList.Free;
end;

Wenn ich dann nochmal die Binärdatei nach den gespeich. Positionen durchsuche, um die 350 Werte zu finden kommt dabei auch nur Käse raus! Lese ich die Bytes falsch in die Datensätze ein?

Danke, Eva