Einlesen von Werten bei TFilestream

[turboPASCAL]

Du musst den Datei- bzw. Stream zeiger auf die aktuelle Position setzen, das Read fängt immer beim Datei- bzw. Streambegin an also an der Position 0.

Code:

procedure TForm1.Button3Click(Sender: TObject);
var Stream: TFileStream;
    Zahl, Zahl1: Integer;
begin
  Stream:= TFileStream.Create('c:\test.dat', fmOpenRead);
  try
    [color=#ff0000][b]Stream.Seek[/b][/color](soFromBeginning, SizeOf(Zahl));
    stream.Read(zahl1, SizeOf(zahl1));
  finally
    Stream.Free;
  end;
  Label2.Caption:= IntToStr(zahl1);
end;

[oh]Seek, TFileStream.Seek, TStream.Seek[/oh]