Информация о содержимом таблицы *.db

[artemavd]

Добрый день! Такой вопрос: есть созданная таблица Paradox во время работы программы (не Database Desktop), например, tab.db, можно ли сделать так, чтобы по нажатию на кнопку происходило получение информации о таблице, т.е. чтобы в Label, например, выводились в строчку какие поля есть в таблице, как они называются. Или чтобы таблица при открытии загружалась в DBGrid вместе с содержимым. Есть ли процедура, которая бы выводила информацию о таблице?

[Stilet]

Инфа о структуре содержится в Table1.FieldDefs

http://delphiworld.narod.ru/base/pri...structure.html

[artemavd]

Stilet, ругается компилятор на строчку, которая начинается с WinProcs...
Кажется надо подключить в uses какой-то модуль, но я не могу вспомнить какой. Что надо подключить?

[Stilet]

Дружище, забудь о ней
Тебе важно:

const
  FieldTypes: array[0..16] of string[10] = ('Unknown', 'String', 'Smallint',
    'Integer', 'Word', 'Boolean', 'Float', 'Currency', 'BCD', 'Date', 'Time',
    'DateTime', 'Bytes', 'VarBytes', 'Blob', 'Memo', 'Graphic');
s: array[0..3] of string[10];
...
 with Table1.FieldDefs
 for i := 0 to Count - 1 do
s[0] := IntToStr(Items[i].FieldNo) + #9;
      s[1] := Items[i].Name + #9;
      s[2] := FieldTypes[Ord(Items[i].DataType)] + #9;
      s[3] := IntToStr(Items[i].Size);

Усе. Терь втом же цикле этот массив выводи скажем в ЛистБокс для проверочки.

[artemavd]

Поиском по форуму нашел, что надо подключить (поиск все таки рулит =)). В разделе объявления констант мы, как я понял, перечислили все типы полей, которые указываются при создании таблицы через DataBase Desktop, свойственных для Paradox-a.
А эти строчки что значат:

with Table1.FieldDefs
 for i := 0 to Count - 1 do
s[0] := IntToStr(Items[i].FieldNo) + #9;
      s[1] := Items[i].Name + #9;
      s[2] := FieldTypes[Ord(Items[i].DataType)] + #9;
      s[3] := IntToStr(Items[i].Size);

И что будет выведено в ListBox? Содержимое таблицы? А на печати, что будет? Будет распечатано содержимое таблицы, отображенной в DBGrid-e или именно структура db файла?

[Stilet]

Ну чтож ты такой недогадливый, то, я ж просто например сказал.

      ListBox.Items.add(IntToStr(Items[i].FieldNo));// Номер поля
      ListBox.Items.add(Items[i].Name); // Имя поля
      ListBox.Items.add(FieldTypes[Ord(Items[i].DataType)]); // Тип поля
      ListBox.Items.add(IntToStr(Items[i].Size)); // Размер поля

[artemavd]

А в StringGrid можно также занести имена полей?)

[Stilet]

А в StringGrid можно также занести имена полей?)

Ну естесственно )

[artemavd]

для этого надо такой цикл сделать:

var
 i1,i2:integer;
begin
 for i1:=0 to ColCount - 1 do
 for i2:=0 to RowCount - 1 do
  begin
    SG12.Cells[i1,i2]:=ListBox1.Items.GetText;
  end;
end;

Так?)

[Stilet]

Врядли это пройдет

 SG12.RowCount:=Table1.FieldDefs.Count;
 SG12.ColCount:=5;
for i := 0 to Table1.FieldDefs.Count - 1 do begin
 sg12.cell[0,i]:=IntToStr(Table1.FieldDefs.Items[i].FieldNo);
 sg12.cell[1,i]:=Table1.FieldDefs.Items[i].Name;
... // И так далее остальные данные по таблице
end;