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:

procedure TForm1.btOeffnenClick(Sender: TObject);
var
 i : integer;
 j : integer;
begin
 i := 0;
 hDaten := tDaten.create;
 hDaten.create;
 with self do
  begin
   MaxVereine;
   MaxSpieler;
  end;

 if ( VeMax > 0 ) then
{Grundknotenerstellung}
  begin
   if(  Frame21.TreeView1.Selected = nil  ) then
    begin
     with Frame21.TreeView1.Items.AddFirst(  nil,  'Datensatz' ) do
      begin
       Selected := true;
      end;
    end;
  end;
{Vereinsknotenerstellung}
 while(i <= VeMax) do
  self.GetVerein(i, hVerein);
  with Frame21.TreeView1.Items.AddChildFirst( Frame21.TreeView1.Selected, hVerein.Name ) do
   begin
    MakeVisible;
    Selected := true;
   end;
  i:=hVerein.ID;
  inc(i);
  j:=0;
    while (j <= SpMax) do
     begin
      self.getSpieler(j, hSpieler);
      Frame21.TreeView1.Items.AddChild(Frame21.TreeView1.Selected, hSpieler.Nachname + ', ' + hSpieler.Nachname);
      inc(j);
     end;
  end;                    

1:
2:
3:

 i:=hVerein.ID;
  inc(i);   
  j:=0;