Daten speichern

[vlees91]

EDIT: Das ist im prinzip das gleiche wie oben, nur dass hier das dateiformat (die richtlinien) definiert wurden und ich es so einfach finde schnell sachen an dateien zu ändern, da ja alles automatisch gemachtr wird mit nur einem readstream
EDIT2: die TDBFile kann natülich noch in andere typen eingeteilt werden. zum beispiel TDBFileHeader und TDBFileContent oder so ähnlich

Delphi-Quellcode:

type
  TDBFile = packed record
    Signature : array [0..024] of char;
    wert : integer;
//und so weiter
  end;

dann liest man so

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ReadStream : TFileStream;
  ReadSize, size : Int64;
  DBFile : TDBFile;
begin
    ReadStream := nil;

    ReadStream := TFileSTream.Create('dbdatei.format', fmOpenRead);
    size := ReadStream.Size;
    ReadSize := 0;
      
    ReadStream.ReadBuffer(DBFile, sizeof(TDBFile));
    //in DBFile.Signature steht dann die Datei signatur in DBFile.wert steht dann der Integer (4 bytes)
    //so braucht man sich nicht um die byte werte zu kümmern
    //schreiben geht auch so
    //man muss nur die datei mit schreibrechten öffnen und dann mit WriteStream arbeiten
      
end;

ich hoffe dir hilft das