Помощь - Поиск - Пользователи - Календарь
Полная версия: Не могу создать новый индекс в Delphi
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Гена
Не получается создать новый индекс.

Код
procedure TForm9.Button1Click(Sender: TObject);
var i:integer;
    s:string[30];
begin
  Case pagecontrol1.ActivePageIndex of
  0: begin
     with mdb.DataModule2.Person do
       begin
       For i:=0 to form1.DBGrid1.FieldCount-1 do
         If form1.DBGrid1.Columns[i].Title.Caption=radiogroup1.Items[radiogroup1.ItemIndex] then
           begin
           s:=form1.DBGrid1.Columns[i].FieldName;
           break;
           end;
       end;
     mdb.DataModule2.Person.AddIndex(s+'index',s,[]);
     mdb.DataModule2.Person.IndexName:=s+'index';
     end;
  end;
end;

Пишет:
Invalid index\tag name
index does not exists
Index: MFioindex

Эксклюзивный доступ к таблице стоит.
volvo
Какая БД? (и, заодно, способ доступа к ней напиши)
Гена
Таблицы Парадокс. Использую BDE. Нужно сортировку сделать, а он так ругается. Притом полей в таблице много (3 таблицы всего 15 полей), делать индекс для каждого поля по возрастанию и убыванию не хочется. Или все же лучше так? И как вообще умные люди такие вещи делают?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.