怎样动态设定tdatabase的属性(200分)

设定了
在致设定如下
with par do begin
add('PATH=D:/dbf');
add('ENABLE BCD=FALSE');
end;
database1.DriverName:='PARADOX';
database1.Params:=par;
database1.DatabaseName:='dbf';
database1.Connected:=true;
运行出现了'could not find object'请指教

1.database1.params:=par改为database1.params.assign(par);
2.我的TDatabase.driverName中没有paradox,不知你的有没有？我的为'Microsoft paradox driver....'
3.我的参数中也滑path=...

你最好先静态指定，测试成功了再照搬
如下是我的一个示例，建议你填入相应的值后，再...
DriverName = 'Microsoft Paradox Driver (*.db '
Params.Strings = (
'DATABASE NAME='
'USER NAME='
'ODBC DSN='
'OPEN MODE=READ/WRITE'
'SCHEMA CACHE SIZE=8'
'SQLQRYMODE='
'LANGDRIVER='
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
'SCHEMA CACHE TIME=-1'
'MAX ROWS=-1'
'BATCH COUNT=200'
'ENABLE SCHEMA CACHE=FALSE'
'SCHEMA CACHE DIR='
'ENABLE BCD=FALSE'
'ROWSET SIZE=20'
'BLOBS TO CACHE=64'
'PASSWORD=')

par:=tstringlist.Create;
with par do begin
add('PATH=D:/dbf');
add('ENABLE BCD=FALSE');
end;
database1.DriverName:='standard';//注意这里有改动
database1.Params:=par;
database1.DatabaseName:='dbf';
database1.Connected:=true;

数据库路径在database1.diretory中设置
有问题smtele@sina.com

太粗心丢了200分

thanks