Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Список индексов 


dim-   (2001-12-18 09:15) [0]

как узнать список индексов в таблице dbf (как в Database Desktop) при открытии.
(индексы хранятся в CDX, но можно и по другим индексным файлам)

Ps. почему так быстро удаляются вопросы, может конечно он и не заслуживает внимания, но я думаю, что конфиренция для того и нужна, что бы на любой вопрос можно было получить ответ.



gek   (2001-12-18 09:26) [1]

У меня такой вот код
StringList:=TStringList.Create;
Table_main.GetIndexNames(StringList);
if StringList.IndexOf("indx_address")= - 1 then
Table_main.AddIndex("indx_address","Address", [],"Address");
StringList.Free;
правда у меня парадох стоит ну попробуй может поможет



DmitryA   (2001-12-18 16:14) [2]

Table.IndexDefs.Update();
for viIndex := 0 to Table.IndexDefs.Count - 1 do // по всем индексам
begin
// это имя индекса (tag), и можно достать прочую информацию
Table.IndexDefs.Items[0].Name;
end;



dim-   (2001-12-19 08:51) [3]

Спасибо, помогло, а как узнать выражения по которым строится индекс.
Смысл задачи - сохранить данные о таблице в текстовом файле и в случае порчи индекса или таблицы ее востановить.



gek   (2001-12-19 12:03) [4]

А никак, давай индексам осмыссленные имена связанные с полями



gun19456   (2001-12-19 16:03) [5]

У меня на сайте
http://gorohov.narod.ru
программка NStruct лежит c исходниками это кусок из нее
Вот так кидаем в list
for i:=0 to FBrowser.ComboBox1.Items.Count-2 do
begin
FBrowser.ListBox1.Items.Add(" индекс:"+FBrowser.ComboBox1.Items[i]);
FBrowser.ListBox1.Items.Add("Выражение:"+FBrowser.Table1.IndexDefs.Items[i].FieldExpression);
// Edit1.Text:=Table1.IndexDefs.Items[ComboBox1.ItemIndex].FieldExpression; // Expression;
end;



DmitryA   (2001-12-19 17:20) [6]

А все так-же:

Table.IndexDefs.Update();
for viIndex := 0 to Table.IndexDefs.Count - 1 do // по всем индексам
begin
Table.IndexDefs.Items[0].Expression;
end;

Вообще-то стоит иногда смотреть в Help!



dim-   (2001-12-19 17:44) [7]

Всем СПАСИБО!




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
14-75670          Dimka Maslov          2001-11-30 15:54  2002.01.24  
No comments


14-75678          Desdechado            2001-11-29 20:06  2002.01.24  
Бывают ли бананы червивыми?


1-75573           Lotus                 2002-01-05 15:27  2002.01.24  
Проверка выражения на true/false НУЖНА ПОМОЩЬ!!!


14-75649          Потерянный            2001-11-27 15:28  2002.01.24  
Попробую здесь


1-75612           Dmitriy_R             2002-01-06 10:55  2002.01.24  
Прозьба помогите разобратся где я сделал ошибку с ListView