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;                    

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

Var stream:Tstream;
    sl:Tstrings;
begin
  stream:=TFileStream.Create('D:\test.dat',fmcreate);
  sl:=TStringList.Create;
  sl.Add('eintrag 1');
  sl.Add('eintrag 2');
  sl.SaveToStream(stream);
  sl.Clear;
  sl.Add('eintrag Neu');
  sl.SaveToStream(stream);
  stream.free;
  sl.Free;

  stream:=TFileStream.Create('D:\test.dat',fmOpenRead);
  sl:=TStringList.Create;
  sl.LoadFromStream(stream);
  Memo1.Lines.Assign(sl);
  Memo1.Lines.Add('=========');
  sl.LoadFromStream(stream);
  Memo1.Lines.AddStrings(sl);
  sl.Free;
  stream.Free;
end;                    

1:

ReadStream(Stream, Stream.Size - Stream.Position);                    

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

procedure TIconItem.LoadFromStream(AStream: TFileStream);
var
MemStream : TMemoryStream;
Size : int64;
begin
  inherited;
MemStream := TMemoryStream.Create;
Size := AStream.Read(Size,SizeOf(Size));
MemStream.Read(AStream,Size);
FIcon.LoadFromStream(Memstream);
MemStream.Free;
end;

procedure TIconItem.SaveToStream(AStream: TFileStream);
var
MemStream : TMemoryStream;
Size : int64;
begin
  inherited;
MemStream := TMemoryStream.Create;
FIcon.SaveToStream(MemStream);
Size := MemStream.Size;
AStream.Write(Size,SizeOf(Size));
AStream.Write(MemStream,Size);
MemStream.Free;
end;                    

1:

AStream.Write(MemStream,Size);                    

1:

AStream.Write(MemStream.Memory,Size);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TIconItem.LoadFromStream(AStream: TFileStream);
var
MemStream : TMemoryStream;
p : Pointer;
Size : int64;
begin
  inherited;
MemStream := TMemoryStream.Create;
Size := AStream.Read(Size,SizeOf(Size));
p := AStream.Memory;     // FileStream kennt kein Memory
MemStream.Read(p^,Size);
FIcon.LoadFromStream(Memstream.Memory);
MemStream.Free;
end;

procedure TIconItem.SaveToStream(AStream: TFileStream);
var
MemStream : TMemoryStream;
p : Pointer;
Size : int64;
begin
  inherited;
MemStream := TMemoryStream.Create;
FIcon.SaveToStream(MemStream);
Size := MemStream.Size;
p := MemStream.Memory;
AStream.Write(Size,SizeOf(Size));
AStream.Write(p^,Size);
MemStream.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TStreamBitmap.LoadFromStream(AStream: TFileStream);
var
x,y,w,h : longint;
Data : TColor;
begin
AStream.Read(w,SizeOf(w));
Width := w;
AStream.Read(h,SizeOf(h));
Height := h;
for y := 0 to h-1 do
  for x := 0 to w-1 do
    begin
    AStream.Read(Data,SizeOf(Data));
    Canvas.Pixels[x,y] := Data;
    end;
end;

procedure TStreamBitmap.SaveToStream(AStream: TFileStream);
var
x,y,w,h : longint;
Data : TColor;
begin
w := Width;
h := Height;
AStream.Write(w,SizeOf(w));
AStream.Write(h,SizeOf(h));
for y := 0 to h-1 do
  for x := 0 to w-1 do
    begin
    Data := Canvas.Pixels[x,y];
    AStream.Write(Data,SizeOf(Data));
    end;
end;