EPUB | CHM | PDF

Example: IndexDefs, Update, Count, Items, IndexName, Fields, Name

Top Previous Next

This example uses the IndexName property to sort the records in a table on the CustNo and OrderNo fields.

PSQLTable1.Active := False;
// Get the current available indexes
PSQLTable1.IndexDefs.Update;
// Find one which combines Customer Number ('CustNo')
// and Order Number ('OrderNo')
for I := 0 to PSQLTable1.IndexDefs.Count - 1 do
  if PSQLTable1.IndexDefs.Items[I].Fields = 'CustNo;OrderNo' then
// Set that index as the current index for the table
    PSQLTable1.IndexName := PSQLTable1.IndexDefs.Items[I].Name;
    PSQLTable1.Active := True;