Einlesen von Werten bei TFilestream

[marabu]

Vielleicht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  stream: tstream;
  i, zahl: integer;
  zahlen: TIntegerDynArray;
begin
  SetLength(zahlen, 5);
  for i := Low(zahlen) to High(zahlen) do
    zahlen[i] := Random(1000);
  stream:= tfilestream.Create('C:\test.hen', (fmcreate or fmOpenWrite));
  try
    zahl := Length(zahlen);
    stream.Write(zahl, sizeof(zahl));
    stream.Write(zahlen[0], Length(zahlen) * SizeOf(Integer));
  finally
    stream.free;
  end;
end;

marabu