Unabhängige Eigenschaft in Record einbinden

[neolithos]

Übrigens das gibt es bei Borland sein Turbo Vision

Bsp:

Delphi-Quellcode:

var f : TFileStream;
    d : TData;

  f := TFileStream.Create('c:\text.dat', fmCreate);
  try
    f.Write(d, SizeOf(d));
  finally
    f.Free;
  end;

ODER in OOP:

Delphi-Quellcode:

  TData = class (???)
  public
    constructor Load(stm : TStream); virtual;
    procedure Store(stm : TStream); virtual;
      // hiertrinn seht stm.Write
  end;

  TDataAbl = class (TData)
  public
    constructor Load(stm : TStream); override;
    procedure Store(stm : TStream); override;
      // hiertrinn seht 
      //    inherited; für vorgänger
      //    stm.Write
  end;

var oData : TData;

procedure SaveToFile
var f : TFileStream;
 
  f := TFileStream.Create('c:\text.dat', fmCreate);
  try
    oData.Write(d, SizeOf(d));
  finally
    f.Free;
  end;

procedure SaveToWasWesIch  -> schreiben übers netz, Speicher oder in eine DB 
var f : TStream;
 
  f := T???.Create('c:\text.dat', fmCreate);
  try
    oData.Write(d, SizeOf(d));
  finally
    f.Free;
  end;

Das ist nur ein anriss. Via solcher Konstruktionen kann man daten effectiv Bunkern. Vorallem mittels Version und Signatur-Informationen.
-> Es wird alles Binär betrachtet.