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:

unit uMieterverwaltung;

interface

uses
  [viele Andere], uTypen;

type
  TFormMieterverwaltung = class(TForm)
    [...]
  private
    AktuellerMieter: Mietpartei;
    procedure UpdateTree;
    [...]
  public
    { Public-Deklarationen }
  end;

var
  FormMieterverwaltung: TFormMieterverwaltung;

implementation

uses
  [...];

{$R *.dfm}

[...]

procedure TFormMieterverwaltung.UpdateTree;
var
  [...]
  Häuserliste: Häuser;
begin
  [...]
end;

end.					

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

unit uTypen;

interface

type
  Haus = record
  [...]
 end;

  Häuser = array of Haus;

  Mietpartei = record
  [...]
  end;

  [...]

implementation

end.					

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

procedure TFormMieterverwaltung.UpdateTree;
var
  Haus: TPair<Integer, TTreeNode>;
  Wohneinheiten: TDictionary<Integer, TTreeNode>;
  Wohneinheit: TPair<Integer, TTreeNode>;
  Häuserliste: Häuser;   // FEHLER HIER
  Wohneinheitenliste: Wohneinheiten;
  Mieterliste: Mietparteien;
  i:Integer;
begin
  // Tree, Hashmaps löschen, Init
  Tree.Items.Clear;
  [...]					

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

  [...]
  Haus = record
    Haus_ID: Integer;                  
    Name: String;               
    AnschriftZeile1: String;       
    AnschriftZeile2: String;       
  end;

  Häuser = array of Haus;            

  Wohneinheit = record
    Wohneinheit_ID: Integer;       
    Haus_ID: Integer;                 
    Bezeichnung: String;     
    Wohnfläche: Integer;            
  end;

  Wohneinheiten = array of Wohneinheit;
  [...]