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:

procedure TForm1.lade_Tabelle(DBTname: TTable; tabname, dbtreiber: String);
var   n      : Integer;
     gef      : boolean;
begin
  DBTname := NIL;
  DBTname.active :=  false;
    DBTname.TableName := tabname;
    DBTname.DatabaseName := dbtreiber;
  DBTname.Active := true;
  gef := false;
  for n := 0 to combobox2.items.Count - 1 do
    if tabname = combobox2.items[n] then gef := true;
  if not gef then combobox2.items.add(extractfilename(DBTname.TableName));
end;

procedure Tform1.lade_ausleihsatz (sender: tobject);
begin
  {TbAusleihsatz.active := false;
    TbAusleihsatz.tablename := t_name;
  TbAusleihsatz.active := true;
  combobox2.Items.Add(extractfilename(TbAusleihsatz.TableName));}

  lade_Tabelle(TbAusleihsatz, t_name, '');
  qAusleihSSort(self);
  label60.caption := extractfilename(TbAusleihsatz.tablename) + ' aktiv OK';
end;                    

1:
2:
3:
4:
5:

  DBTname := NIL;
  DBTname.active :=  false;
    DBTname.TableName := tabname;
    DBTname.DatabaseName := dbtreiber;
  DBTname.Active := true;