Question

delphi Paradox数据库如何设置第二索引

delphi Paradox数据库如何设置第二索引？各位要详细点的谢谢！

Answer 1

NewTbl:= TTable.create(self);
NewTbl.DatabaseName:= 资料库名称
NewTbl.TableName:= 'TABLE.DB';
NewTbl.Open;
try
if (NewTbl.IndexDefs.GetIndexforFields('Customer;Name',false) = nil) then
NewTbl.AddIndex('ByCustomer','Customer;Name',[ixCaseInsensitive]);
finally
NewTbl.Close;
NewTbl.Free;
end;