Tabellennamen aus einer TDatabase in eine Stringlist?

[Jens Hartmann]

Delphi-Quellcode:

procedure TForm8.btn1Click(Sender: TObject);
var
  TStringVar : TStrings;
  i : Integer;
begin
  dbMon1.FileName := 'MyAppLog.log';
  dbMon1.Active   := True;
  dbMon1.AutoSave := True;
try
  Memo1.Clear;
  TStringVar := TStringList.Create;
  dbCon.GetTableNames('',TStringVar);
  for i := 0 to TStringVar.Count - 1 do
    begin
      if pos ('$',TStringVar[i]) = 0 then
        Memo1.Lines.Add(TStringVar[i]);
    end;
finally
  TStringVar.Free;
end;

so geht es jetzt. Ich hatte im Anwendungsverzeichnis eine falsche fbclient.dll Datei. Man was ein doofer Fehler.

Danke trotzdem Gruß Jens