Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#2
  Alt 16. Mai 2003, 11:24
Hallo mjenke,

schau dir mal das Beispiel aus der OH an:

Delphi-Quellcode:
MyStringList := TStringList.Create;
try
  Session.GetTableNames('DBDEMOS', '*.db',False, False, MyStringList);
  { Tabellennamen in Liste einfügen }
  ListBox1.Items = MyStringList;
finally
  MyStringList.Free;
end;
Damit erhälst du alle vorhandenen Tabellen zu einem Alias.

Alternativ dazu kannst du den kompletten Dateinamen erzeugen (also inkl. Pfad) und mit FileExists aus SysUtils überprüfen, ob die Tabelle existiert.

Oder einfach Table.Open in einen try...except Block packen und bei einer exception überprüfen, welcher Fehler aufgetreten ist.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat