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:

type TDatenbank               = class
  public
  type TKlient         = record
         Status        : integer;
         Index         : integer;
         Vorname       : string;
         Nachname      : string;
         Strasse       : string;
         Ort           : string;
       end;
       PKlient         = ^TKlient;
       TKlientliste    = record
         Count         : integer;
         Liste         : array of TKlient;
       end;
       PKlientliste    = ^TKlientliste;
       constructor create(Path: String);
       function  LastOperation: integer;
       {weitere Deklarationen, die hier keine Rolle spielen}
       private
       procedure LoadDB;
       procedure StoreValue(Klient: PKlient); overload;
       {weitere Deklarationen, die hier keine Rolle spielen}
       var  iKlientenliste      : TKlientliste;
            pKlientenliste      : PKlientliste;
            Error               : integer;
            Vorlagenpfad        : string;
            {weitere Deklarationen, die hier keine Rolle spielen}
end;


constructor TDatenbank.create(Path: String);
begin
  Vorlagenpfad := Path;
  LoadDB;
end;

procedure TDatenbank.LoadDB;
  new(PKlientenliste);
  PKlientenliste := @iKlientenliste;
  iKlientenliste.Count := 0; //funktioniert offenbar, jedenfalls kein Fehler!
  {weiterer Code, der hier nicht relevant ist}
end;

procedure TDatenbank.NewKlient(Klient: PKlient);
begin
  StoreValue(Klient);
end;

procedure TDatenbank.StoreValue(Klient: PKlient);
begin
  iKlientenliste.Liste[iKlientenliste.Count+1] := Klient^;
  inc(iKlientenliste.Count);
end;                    

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

procedure TForm2.Button1Click(Sender: TObject);
var Klient  : TDatenbank.TKlient;
    AKlient : TDatenbank.PKlient;

begin

  With Klient do
  begin
    Status   := 1;
    Index    := 1;
    Vorname  := Edit1.Text;
    Nachname := Edit2.Text;
    Strasse  := Edit3.Text;
    Ort      := Edit4.Text;
  end;
  New(AKlient);
  AKlient := @Klient;
  Datenbank.NewKlient(AKlient); // Hier knallt es!
  Dispose(AKlient);
end;                    

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

var  Datenbank: TDatenbank;
     Error    : integer;

begin  
  Dtenbank := TDatenbank.create('');
  Error := Datenbank.LastOperation;
  if Error <> 0
  then
    case error of
      1: showmessage('Datenbank ist fehlerhaft, bitte Datenbanküberprüfung durchführen!');
      2: showmessage('Es existiert keine Datenbank, diese muß neu angelegt werden!');
    end;
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:
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:

type TDatenbank               = class
  public
  type TKlient         = record
         Status        : integer;
         Index         : integer;
         Vorname       : string;
         Nachname      : string;
         Strasse       : string;
         Ort           : string;
       end;
       PKlient         = ^TKlient;
       TKlientliste    = record
         Count         : integer;
         Liste         : array of TKlient;
       end;
       PKlientliste    = ^TKlientliste;
       constructor create(Path: String);
       function  LastOperation: integer;
       {weitere Deklarationen, die hier keine Rolle spielen}
       private
       procedure LoadDB;
       procedure StoreValue(Klient: PKlient); overload;
       {weitere Deklarationen, die hier keine Rolle spielen}
       var  iKlientenliste      : TKlientliste;
            pKlientenliste      : PKlientliste;
            Error               : integer;
            Vorlagenpfad        : string;
            {weitere Deklarationen, die hier keine Rolle spielen}
end;


constructor TDatenbank.create(Path: String);
begin
  Vorlagenpfad := Path;
  LoadDB;
end;

procedure TDatenbank.LoadDB;
  new(PKlientenliste);
  PKlientenliste := @iKlientenliste;
  iKlientenliste.Count := 0; //funktioniert offenbar, jedenfalls kein Fehler!
  setLength(iKlientenliste.Liste, 0);  //neu hinzugefügt
  {weiterer Code, der hier nicht relevant ist}
end;

procedure TDatenbank.NewKlient(Klient: PKlient);
begin
  StoreValue(Klient);
end;

procedure TDatenbank.StoreValue(Klient: PKlient);
begin
  setLength(iKlientenliste.Liste, iKlientenliste.Count+1);  //neu hinzugefügt
  iKlientenliste.Liste[iKlientenliste.Count+1] := Klient^;
  inc(iKlientenliste.Count);
end;                    

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

procedure TForm2.Button1Click(Sender: TObject);
var Klient  : TDatenbank.TKlient;
    AKlient : TDatenbank.PKlient;

begin

  With Klient do
  begin
    Status   := 1;
    Index    := 1;
    Vorname  := Edit1.Text;
    Nachname := Edit2.Text;
    Strasse  := Edit3.Text;
    Ort      := Edit4.Text;
  end;
  New(AKlient);
  AKlient := @Klient;
  Datenbank.NewKlient(AKlient); // Hier knallt es!
  Dispose(AKlient);
end;                    

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

var  Datenbank: TDatenbank;
     Error    : integer;

begin  
  Dtenbank := TDatenbank.create('');
  Error := Datenbank.LastOperation;
  if Error <> 0
  then
    case error of
      1: showmessage('Datenbank ist fehlerhaft, bitte Datenbanküberprüfung durchführen!');
      2: showmessage('Es existiert keine Datenbank, diese muß neu angelegt werden!');
    end;
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:
25:
26:
27:
28:
29:
30:
31:

  type TKlient         = class(TObject)
  public
         Status        : integer;
         Index         : integer;
         Vorname       : string;
         Nachname      : string;
         Strasse       : string;
         Ort           : string;
       end;

type TDatenbank               = class
  public
       Klientliste: TObjectList<TKlient>;

       constructor create(Path: String);
       function  LastOperation: integer;
       {weitere Deklarationen, die hier keine Rolle spielen}
       private
       procedure LoadDB;
       procedure StoreValue(Klient: TKlient); overload;
       {weitere Deklarationen, die hier keine Rolle spielen}
            Error               : integer;
            Vorlagenpfad        : string;
            {weitere Deklarationen, die hier keine Rolle spielen}
end;

constructor TDatenbank.Create(Path: string)
begin
   KlientListe:=TObjectList<TKlient>.Create(true);
   ...
end;                    

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

 
procedure TDatenbank.StoreValue(Klient: PKlient);
begin                                                       // Count ist zu Beginn 0, wird bei Initialisierung von Datenbank auf 0 gesetzt
  setLength(iKlientenliste.Liste, iKlientenliste.Count+1);  // hab ArrayLänge auf 1 gesetzt
  iKlientenliste.Liste[iKlientenliste.Count] := Klient^;    // schreibe in Array.Liste[Count], anfangs also 0
  inc(iKlientenliste.Count);                                // Count auf 1 gesetzt (bzw. später inkrementiert)
end;                    

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

var
  TOL: TObjectList<TSomething>;
begin
  if Assigned(TOL) then  //TOL = Nil, wenn noch nicht alloziert
  begin
    if TOL.Count > 0 then //Wenn Liste leer ist Count=0
    begin
      ...
    end;
  end;
end;                    

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

procedure main
begin
  Datenbank.NewKlient(Klient);   // die Übergabe klappt, in der TObjectList der Datenbank-Klasse landet das Objekt
end;

procedure Liste_aktualisieren;
var lListe: TObjectList<TKlient>;
begin
  lListe := TObjectList<TKlient>.create(true);
  Datenbank.GetKlientenliste(lListe);  //hier bekomme ich keine Liste zurück, wie es ausschaut, bzw. ist die Liste nil
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:

type Datenbank = class(TObjeckt)
  public
    procedure NewKlient(Klient: TKlient)
    procedure GetKlientenliste(Liste: TObjectList<TKlient>);
  private
    procedure StoreValue(Klient: TKlient); overload
    iKlientliste : TObjectList<TKlient>;
  end;

procedure Datenbank.NewKlient; overload;
begin
//hier klappt alles, die interne Liste wird befüllt, testweise gleich zu Beginn mit einem Element
end;

procedure Datenbank.GetKlientenliste(Liste: TObjectList<TKlient>);
var i: integer;
begin
  Liste := TObjectList<TKlient>.create(true);
  if iKlientliste.count > 0 //da ein Element vorhanden, geht es auch in die Schleife
  then
  begin
    for i := 1 to iKlientliste.count do
      Liste[i] := iKlientliste[i];
  end
  else
    Liste := Nil;
  end;
  //Liste.destroy darf hier nicht aufgerufen werden, denke ich mal?
end;                    

1:
2:

   for i := 0 to iKlientliste.count-1 do
      Liste[i] := iKlientliste[i];                    

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

procedure Datenbank.GetKlientenliste(var Liste: TObjectList<TKlient>); // Anpassung Jasocul
var i: integer;
begin
  if not Assigned(Liste) then // Anpassung Jasocul
    Liste := TObjectList<TKlient>.create(true);
  if iKlientliste.count > 0 //da ein Element vorhanden, geht es auch in die Schleife
  then
  begin
    for i := 0 to iKlientliste.count-1 do // Anpassung Jasocul
      Liste[i] := iKlientliste[i];
  end
  else
    Liste.Free; // Anpassung Jasocul Alternativ für beide Zeilen: FreeAndNil(Liste)
    Liste := Nil;
  end;
  //Liste.destroy darf hier nicht aufgerufen werden, denke ich mal?
end;                    

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

procedure Datenbank.GetKlientenliste(var Liste: TObjectList<TKlient>); // Anpassung Jasocul
var i: integer;
begin
  if not Assigned(Liste) then // Anpassung Jasocul
    Liste := TObjectList<TKlient>.create(true);
  if iKlientliste.count > 0 //da ein Element vorhanden, geht es auch in die Schleife
  then
  begin
    for i := 0 to iKlientliste.count-1 do // Anpassung Jasocul
      Liste[i] := iKlientliste[i]; // Hier ist noch was zu tun
  end
  else
  begin
    Liste.Free; // Anpassung Jasocul Alternativ für beide Zeilen: FreeAndNil(Liste)
    Liste := Nil;
  end;
end;
  //Liste.destroy darf hier nicht aufgerufen werden, denke ich mal?
end;                    

1:
2:
3:

     for i := 0 to iKlientliste.Count-1 do
    begin
      Klientliste.Add(iKlientliste.Items[i]);