Tabellennamen aus einer TDatabase in eine Stringlist?

[Jens Hartmann]

Hallo zusammen,

ich muss dieses Thema hier mal kurz aufgreifen. Warum kommt bei unten gezeigter Methoden die Fehlermeldung im Anhang?

Delphi-Quellcode:

procedure TForm8.FormCreate(Sender: TObject);
var
  FTableList : TStringList;
  i : Integer;
begin
  FTableExist := False;
  FTableList := TStringList.Create;
  try
    dbMon1.FileName := 'MyAppLog.log';
    dbMon1.Active   := True;
    dbMon1.AutoSave := True;
    dbCon1.Connect;
    dbCon1.GetTableNames('',FTableList);
  finally
    FTableList.Free;
  end;
end;

Die Logdatei zeigt folgendes:

Zitat:

08.01.2011 11:32:41: CONNECT TO "PSSecur" AS USER "SYSDBA"
08.01.2011 11:32:41: TRANSACTION STARTED.
08.01.2011 11:32:41: SELECT DISTINCT a.RDB$RELATION_NAME, a.RDB$SYSTEM_FLAG, a.RDB$VIEW_SOURCE, a.RDB$DESCRIPTION FROM RDB$RELATIONS a

und in der Zeile...

    dbCon1.GetTableNames('',FTableList); passiert der Fehler.

Gruß Jens