Dateien binär beschreiben?

[bitsetter]

Im Prinzip kannst du auch einen Record also Datenstrukturen, Arrays oder ähnliches mit einem TFileStream lesen und schreiben.

Delphi-Quellcode:

Type
  TMyData = packed record
    Int: integer;
    B: Byte;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TFileStream;
  //MyData: Byte;
  //MyData: array[0..20] of byte;
  MyData: TMyData;
  Pfad: AnsiString;
begin
  Pfad := 'D:\...';
  ZeroMemory(@MyData, SizeOf(MyData));
  if FileExists(Pfad) then
  begin
    FileStream := TFileStream.Create(Pfad, fmOpenReadWrite);
    try
      FileStream.Read(MyData, SizeOf(MyData));//Daten lesen

      MyData.Int := ...;//Daten ändern
      MyData.B := ...;

      FileStream.Position := 0;
      if FileStream.Write(MyData, SizeOf(MyData)) = SizeOf(MyData) then //Daten schreiben
        Showmessage('fertig');
    finally
      FileStream.Free;
    end;
  end;
end;