1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

type
  TData=record
    Foo : integer;
    Bar : integer;
  end;

type
  TDataMap = array of array of TData;

type
  TDataFile = file of TData;


type
  TDataClas=class(TObject)
  private
    FData : TDataMap;
    FMapSize : TPoint;
    FMapName : string;
  public
    procedure LoadFromFile(filename:string);
    procedure SaveToFile(filename:string);
  end;					

1:
2:
3:
4:
5:

Datentyp (Konstante Länge, z.B. 1 Byte)
Länge Beschreibung (Konstante Länge, z.B. 2 Bytes)
Beschreibung (variable Länge)
Länge der Daten (Konstante Länge, z.B. 4 Bytes)
Daten (variable Länge)					

1:
2:
3:
4:
5:
6:
7:
8:

42        // 42 steht für den typ "string"
6         // Wenn der String z.B. 'Delphi' lautet 
D         // Die Daten des Strings
e
l
p
h
i					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Var w:Word;
    S:String;
    i:Integer;
    LengthDynArray:Cardinal;
...
Stream.Read(w,Sizeof(Word); //Gibt länge des Strings zurück
Stream.Read(S,w);
ShowMessage(S); //String anzeigen

Stream.Read(i,4); //32 Bit Integer

ShowMessage(IntToStr(i)); //Integer anzeigen

Stream.Read(LengthDynArray,4);
Stream.Read(DynArray,LengthDynArray);					

1:
2:

Stream.Read(LengthDynArray,4);
Stream.Read(DynArray,LengthDynArray);					

1:
2:
3:
4:
5:
6:

Var ByteArray:Array[1..2] of Byte;
    IntegerArray:Array[1..2] of Integer;
begin
ShowMessage(InttoStr(SizeOf(ByteArray)));    //2*1 Byte, also 2 Bytes lesen/schreiben
ShowMessage(InttoStr(SizeOf(IntegerArray))); //2*4 Bytes, also 8 Bytes lesen/schreiben
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TBaseClass.SaveToFile(filename: string);
var
Len : integer;
begin
FDiskFile := TFileStream.Create(filename,fmCreate);
Len := Length(FName);
FDiskFile.Write(Len,SizeOf(Len));
FDiskFile.Write(PChar(FName)^,Len);
Len := Length(FDescription);
FDiskFile.Write(Len,SizeOf(Len));
FDiskFile.Write(PChar(FDescription)^,Len);
if self is TBaseClass then FDiskFile.Free;
//FDiskFile.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TBaseClass.SaveToStream(AStream: TStream); // Natürlich virtual damit man überschreiben kann
var
Len : integer;
begin
Len := Length(FName);
AStream.Write(Len,SizeOf(Len));
AStream.Write(PChar(FName)^,Len);
Len := Length(FDescription);
AStream.Write(Len,SizeOf(Len));
AStream.Write(PChar(FDescription)^,Len);
end;

procedure TBaseClass.SaveToFile(filename: string);
begin
FDiskFile := TFileStream.Create(filename,fmCreate);
SaveToStream(FDiskFile);
FDiskFile.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TBaseClass.SaveToStream(AStream: TStream); // Natürlich virtual damit man überschreiben kann
Var Writer:Twriter;
  begin
    writer:= Twriter.create(AStream,4096);
    try
      begin
        //version schreiben
        writer.writeInteger(aktuelleVersionsNummer);
        writer.writeString(...);
        writer.writeBoolean(...);
        writer.writefloat(...);
        writer.writeDate(...);       
      end;
    finally
      writer.free;
    end;
end;