Einlesen von Werten bei TFilestream

[marabu]

Hi.

Speichere zuerst die Anzahl der Zahlen, dann kannst du sie so einlesen:

Delphi-Quellcode:

uses
  Types;

procedure TForm1.Button3Click(Sender: TObject);
var 
  stream: TFileStream;
  anzahl: Integer;
  zahlen: TIntegerDynArray;
begin
  stream := TFileStream.Create('c:\test.dat', fmOpenRead);
  try
    stream.Read(anzahl, SizeOf(anzahl));
    SetLength(zahlen, anzahl);
    stream.Read(zahlen[0], SizeOf(Integer) * anzahl);
  finally
    Stream.Free;
  end;
  Label2.Caption := IntToStr(anzahl);
end;

Grüße vom marabu