Привет всем...:)
У меня два вопроса:
1. пишу прогу которая рабоитает с базами данных "Paradox" но немогу никак понять как узнать индыксированая колонка или нет. (вы спросите для чего мне ето...для того чтобы удалить столбец, но если столбец индексированый то надо сначала удалить индекс а потом уже столбец).
2. как программно узнать подключен ли комп в и-нет?

Спасибо.
Моё мыло:

1) У таблицы есть свойство IndexDefs, каждый его экземпляр имеет тип TIndexDef, этот класс имеет свойство Options типа множество. Если это множество содержит сонстанту "ixPrimary" то есть ключь по этому полю.

Можно например так:

InternetGetConnectedState(nil, 0)

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

Vit спасибо за ответ.

а нельзя ли по етим двум вопросам примерчики написать...:))

я незнаю как зделать пинговку... помогите...плз.

Спасибо.

По первому ответу писать в лом, но там все абсолютно в лоб - что-то типа

Код

if ixPrimary in MyTable.IndexDefs[1].options then....

По второму - это не так просто если все писать самому, качни Internet Component Suite с моего сайта - http://delphi.nevzorov.net - там есть компонент для пинга, там же есть и пример как использовать этот компонент.

Спасибо за ответ....

Vit у меня вопросик..:)
какие ещё опции бывают кроме: ixPrimary и ixUnique?
у меня видает ошибку: "List index out of bounds(0)"
Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 with Table1 do begin
   for i := 0 to FieldCount - 1 do
     combobox1.Items.Add(Fields[i].FieldName);
 end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
Var
d:integer;
begin
d:=combobox1.ItemIndex;
if (ixPrimary in Table1.IndexDefs[d].options) xor (ixUnique in Table1.IndexDefs[d].options) then
showmessage('Yes'
else
showmessage('No';
end;

помоги плз...

Спасибо.

Цитата

какие ещё опции бывают кроме: ixPrimary и ixUnique?

Опции посмотри в помощи

Цитата

у меня видает ошибку: "List index out of bounds(0)"

Множество не может выдавать такую ошибку, эта ошибка генерируется если идет обращение к несуществующему элементу массива. Посмотри что за значение d передается в if (ixPrimary in Table1.IndexDefs[d].options)...

Ага, все не так! Прошу прощения. Вот нашел в Дельфи пример:

Код

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

Спасибо.