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:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:

unit SaveStructs;

interface

uses SysUtils;

type

Integers = array of Integer;

PPartner = ^TPartner;
TPartner = record
  Name, Vorname: string;
  Klasse: string;

  Sponsoring: string;
  Praktikumsplatz: Boolean;

  Nachhilfe: record
    Fach: string;
    StundenProWoche: Byte;
  end;

  Unterstuetzung: record
    Schulfest: Boolean;
    Klassenfahrt: Boolean;
    Unterrichtsbeitrag: Boolean;
    EDV: Boolean;
  end;

  Organisation: Byte;// in Stunden pro Woche
  Bibliotheksaufsicht: Byte; // in Stunden pro Woche
  Suchtberatung: Byte; // in Stunden je Woche
  Rechtskunde: Byte; // in Stunden je Woche

  Handwerk: string;

  ExperteFuer: string;

  Sonstiges: string;
end;

PListElm = ^TListElm;
TListElm = record
  Partner: PPartner;
  Next: PListElm;
end;

TPartnerList = class
private
  First: PListElm;
  Curr: PListElm;
  CurrID: Integer;
// ...
public
// ...
  procedure Add(const Partner: TPartner);
// ...
end;

// ...

implementation

// ...

procedure TPartnerList.Add(const Partner: TPartner);
var
  AddAfter, AddBefore: PListElm;
  New: PListElm;
begin
  GetMem(New, SizeOf(TListElm));
  GetMem(New^.Partner, SizeOf(TPartner));
  New^.Partner^ := Partner;
{FEHLER in vorheriger Zeile:
  […]
  Exception der Klasse EAccessViolation […]
  Zugriffverletzung bei Adresse […]
  Lesen von Adresse 0000002C […]
}
  if First <> nil then
  begin
    AddAfter := First;
    AddBefore := AddAfter^.Next;
    while (AddBefore <> nil) and Priority(AddBefore^.Partner^, Partner) do
    begin
      AddAfter := AddBefore;
      AddBefore := AddBefore^.Next;
    end;
    New^.Next := AddBefore;
    AddAfter^.Next := New;
  end
  else
  begin
    New^.Next := nil;
    First := New;
  end;
end;

// ...

end.					

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

procedure TPartnerList.Add(const Partner: TPartner);
var
  AddAfter, AddBefore: PListElm;
  NewEntry: PListElm; // New ist eine Procedure
  NewPartner: PPartner; 

begin
  GetMem(NewEntry, SizeOf(TListElm));
  GetMem(NewPartner, SizeOf(TPartner)); // Zeiger auf TPartner erstmal in eigener Variable erstellen
  NewPartner^ := Partner; // inhalt der variable in den speicherbereich kopieren
  NewEntry^.Partner := NewPartner; // 
// ...
end;