Создание/пересоздание индекса

01.01.2007

DbiRegenIndexes( Table1.Handle ); { Регенерация всех индексов } 
create index (зависит от существования выражения)
 
 
if (( Pos('(',cTagExp) + Pos('+',cTagExp) ) > 0 ) then
  Table1.AddIndex( cTagName, cTagExp, [ixExpression])  // <- ixExpression - _литерал_
else
  Table1.AddIndex( cTagName, cTagExp, []);

Взято с https://delphiworld.narod.ru