DELPHI怎么使用索引

Question

create index policyid on policy(policyid)
比如我创建了这样一个索引，我在DELPHI该怎么使用它？谢谢拉
最好给个例子

Answer 1

  procedure CreateIndex(sDbName : string) ;
  var
    QIndex : TQuery ;
  begin
    QIndex := TQuery.create(application) ;
    QIndex.Databasename := sDbName ; 
    try
      with QIndex do
      begin
        sql.Add('create index policyid on policy(policyid) ') ;
        execsql ;
        close ;
      end ;
    finally
      QIndex.Free ;
      QIndex := nil ; 
    end;
  end;