获得当前数据库文件

设置时Table1.Active := False;

procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
begin
  s := ExtractFilePath(ParamStr(0)) + 'MyDatabase';  //数据库存放在程序当前目录内的MyDatabase里

  //ShowMessage(s);
  Table1.DatabaseName := s;
  Table1.Active := True;
end;

Table有3个属性很重要：Active：打开数据连接，设置DatabaseName和TableName属性时要先关闭Active属性，设置完后才能打开

                                DatabaseName：设置数据库别名或者数据库的全路径目录

                               TableName：指向数据库文件名