Tabellennamen aus einer TDatabase in eine Stringlist?

[haentschman]

Moin...
versuch mal:

Delphi-Quellcode:

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

- GetTableNames liefert TStrings zurück
- normalerweise vertragen sich TStrings und TStringlist...wer weiß
- von TStrings brauchst du keine Instanz

PS: FTableList ist lokal deklariert. Wenn du aus dem Create raus bist existiert FTableList nicht mehr. Wenn du dann im OnShow versuchst drauf zuzugreifen gibt es Zugriffsverletzungen.

Probier mal die Variante mit TStrings bzw. mit TSringlist mit einer private deklarierten Variable.