Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Binäre Datei lesen - 2 Werte gleichzeitig

  Alt 23. Dez 2006, 11:23
Zitat:
Das Array müsste ich dann wieder lesen können, und ich stünde vor dem gleichen Problem.
Nein, da man auf Arrays indiziert zugreifen kann.
Zitat:
hättest du mir ein beispielcode ?
Ja, du machst das ja schon fast richtig:

Delphi-Quellcode:
var
  k, BinSize: integer;
  BinDat: array of Real;
  BinFile : TStream;
  Xnum, Ynum, t: single;
  ...

  BinSize:= n*2;
  SetLength(BinDat, BinSize);
   
   for k := 0 to BinSize-1 do
    begin
      BinFile.Read(t, 4); // lese single, 4 bites
      BinDat[k]:=t;
    end;
   for k = 0 to n-1 do
   begin
      AddXY(BinDat[k],BinDat[k+n]); // fügt Werte-paar in TeeChart-Serie ein
   end;
Markus Kinzler
  Mit Zitat antworten Zitat