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:

type TFileStreamExt  = class(TFileStream)
       procedure Delete(Pos, len: integer);
       procedure WriteString(aStr: string);
       function  ReadString: string;
     end;

procedure TFileStreamExt.Delete(Pos: Integer; len: Integer);
begin
  //spielt hier keine Rolle, nur der Vollständigkeit halber aufgeführt
end;

function TFileStreamExt.ReadString: string;
var
   aStrLen: Integer;
begin
   Read(aStrLen, SizeOf(Integer));
   SetLength(Result, aStrLen);
   Read(pointer(Result)^, aStrLen * SizeOf(AnsiChar));
end;

procedure TFileStreamExt.WriteString(aStr: string);
var
   aStrLen: Integer;
begin
   aStrLen := Length(aStr);
   Write(aStrLen, SizeOf(Integer));
   Write(Pointer(aStr)^, aStrLen * SizeOf(Char));
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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

  procedure ReadKlient(var K: TKlientExt);
  var i : integer;
      L: integer;
  begin
    if not assigned(K)
    then
      K.create;
    K.Position := Stream.Position -4;   // soll so sein, weil der Aufruf dieser Methode aufgrund eines Integers erfolgt, der vorher eingelesen wurde, beim Schreiben aber dem Objekt zugeschrieben wird
    Stream.Read(K.Size, SizeOf(K.Size));
    Stream.Read(K.Status, SizeOf(K.Status));
    Stream.Read(K.Index, SizeOf(K.Index));
    K.Vorname := Stream.ReadString;
    K.Nachname := Stream.ReadString;
    K.Strasse := Stream.ReadString;
    K.Ort := Stream.ReadString;
    K.isSaved := true; 
  end;

procedure WriteKlient(K: TKlientExt);
  var L: Integer;
      OldPos, OldSize: integer;
      StartPos, EndPos : integer;
  const z : integer = 1;
  begin
    OldPos := K.Position;
    OldSize := K.Size;
    if (K.isSaved = false) or (K.isChanged = true)
    then
    begin
      StartPos := Stream.Position;
      Stream.Write(z, SizeOf(z));
      Stream.Write(K.Size, SizeOf(K.Size));
      Stream.Write(K.Status, SizeOf(K.Status));
      Stream.Write(K.Index, SizeOf(K.Index));
      Stream.WriteString(K.Vorname);
      Stream.WriteString(K.Nachname);
      Stream.WriteString(K.Strasse);
      Stream.WriteString(K.Ort);
      K.isSaved := true;
      EndPos := Stream.Position;
      K.Size := EndPos - StartPos;
      Stream.Position := StartPos +4;
      Stream.Write(K.Size, SizeOf(K.Size));
      if K.isChanged = false
      then
      begin
        K.Position := StartPos;
      end;
      K.Size := EndPos - StartPos;
      Stream.Position := EndPos;
    end;
    if K.isChanged = true
    then
    begin
      Stream.Delete(OldPos, OldSize);
      DB_change(OldPos, OldSize);
      K.isSaved := true;
      K.isChanged := false;
      K.Position := StartPos;
    end;
  end;