delphi - 即使数据库表存在，Delphi TTable.Exists在Paradox表上也会失败

当我从头开始创建表对象（Table1）并将TableName属性分配给磁盘上的现有表时，Table1.Exist函数失败。我正在使用Delphi2010，它是Paradox 7表。

filename := ZipMaster1.DirEntry[i].FileName;
if Pos('.DB', UpperCase(filename)) > 0 then
begin
  Table1 := TTable.Create(FormArchiveFileSelector);
  Table1.TableName := IncludeTrailingPathDelimiter(ExtractDir) + ExtractFileName(filename);
  if Table1.Exists then
    Table1.DeleteTable;
  Table1.Free;
end;

当我用Table1.Exists替换FileExists(Table1.TableName)时，返回true。有人对此有任何解释吗？

解决方案代码

按照建议，下面是一些“正确”的示例代码：

filename := 'C:\Temp\tables\XXX_1.db';
Table1.DatabaseName := ExtractFilePath(filename);
Table1.Tablename := ExtractFileName(filename);
if Table1.Exists then MessageDlg('Exists', mtInformation, [mbOK], 0)
else MessageDlg('Missing', mtInformation, [mbOK], 0);

注意：即使在正确设置DatabaseName时将Table1.Tablename设置为完整路径和表名，也会导致Exists功能失败。 TableName必须始终没有路径。

最佳答案

您需要分别设置DatabaseName和FileName。

Table1 := TTable.Create(whatever);
Table1.DatabaseName := ExtractDir;
Table1.TableName := ExtractFileName(filename);

（您应该真正摆脱BDE和Paradox文件（以及TTable）。现在已经不推荐使用BDE十多年了，并且可能不会在以后的Delphi版本中发布。最新版本的BDE存在严重问题。 Windows也是如此。）