关于paradox7的index和排序

Question

有谁知道怎么对paradox7的数据表动态的建立索引和排序啊？？？解决就给分

Answer 1

TB.Active:=FALSE;
    TB.DatabaseName:='TMP';
    TB.TableType:=TTPARADOX;
    TB.TableName:='name1';
    WITH TB.FieldDefs DO
    BEGIN
        CLEAR;
        ADD('fieldname1'    ,FTSTRING,  9,FALSE);
        ADD('fieldname2'   ,FTSTRING, 26,FALSE);
        ...
    END;
    with TB.IndexDefs do
    begin
      Clear;
      Add('', 'fieldname1', [ixPrimary, ixUnique]);
    END;
    TB.IndexFieldNames:='fieldnam1';
    TB.CreateTable;
    TB.Active:=TRUE;