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

  Database1.Connected := true;
  s := TStringlist.Create;
  Database1.Session.AddPassword('hallo'); <- war nur n test, funzt aber nicht
  Database1.Session.GetTableNames('DATENBANK','',False,False,s);
  for i := 0 to s.Count -1 do
    ShowMessage(s.Strings[i]);
  s.Free;
  Database1.Connected := false;					

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

procedure TFHaupt.Tabellen_holen;
var i          : integer;
    TableNames : TStringList;
begin
   EdTabelle.Items.Clear;
   TableNames := TStringList.Create;
   Database1.Session.GetTableNames(Database1.DatabaseName, '', False, False, TableNames);
   for i := 0 to TableNames.Count - 1 do begin
      EdTabelle.Items.Add(TableNames[i]);
   end;
end;