Полный список полей таблицы

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

Приведенный ниже пример демонстрирует технологию полного воспроизведения доступных полей в компоненте TTable или TQuery. Программа извлекает информацию о доступных полях и отображает ее в компоненте TListBox; эта информация необходима для динамического построения потомков TField. В данном примере источником данных служит компонент TTable, но той же цели может служить и TQuery (TTable и TQuery для доступа к полям таблицы используют одно и то же свойство Fields).

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  F: TFieldDef;
  D: string;
begin
  Table1.Active := True;
  ListBox1.Items.Clear;
  with Table1 do
  begin
    for i := 0 to FieldDefs.Count - 1 do
    begin
      F := FieldDefs.Items[i];
      case F.DataType of
        ftUnknown: D := 'Unknown';
        ftString: D := 'String';
        ftSmallint: D := 'SmallInt';
        ftInteger: D := 'Integer';
        ftWord: D := 'Word';
        ftBoolean: D := 'Boolean';
        ftFloat: D := 'Float';
        ftCurrency: D := 'Currency';
        ftBCD: D := 'BCD';
        ftDate: D := 'Date';
        ftTime: D := 'Time';
        ftDateTime: D := 'DateTime';
        ftBytes: D := 'Bytes';
        ftVarBytes: D := '';
        ftBlob: D := 'BLOB';
        ftMemo: D := 'Memo';
        ftGraphic: D := 'Graphic';
      else
        D := '';
      end;
      ListBox1.Items.Add(F.Name + ', ' + D);
    end;
  end;
  Table1.Active := False;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 957 • TDictionary Custom Sort 6 063 • Fast Watermark Sources 5 865 • 3D Designer 8 684 • Sik Screen Capture 6 188 • Patch Maker 6 622 • Айболит (remote control) 6 617 • ListBox Drag & Drop 5 474 • Доска для игры Реверси 95 448 • Графические эффекты 6 824 • Рисование по маске 6 016 • Перетаскивание изображений 5 002 • Canvas Drawing 5 372 • Рисование Луны 5 099 • Поворот изображения 4 634 • Рисование стержней 3 275 • Paint on Shape 2 516 • Генератор кроссвордов 3 408 • Головоломка Paletto 2 718 • Теорема Монжа об окружностях 3 508 • Пазл Numbrix 2 309 • Заборы и коммивояжеры 2 994 • Игра HIP 1 953 • Игра Go (Го) 1 871 • Симулятор лифта 2 220 • Программа укладки плитки 1 935 • Генератор лабиринта 2 375 • Проверка числового ввода 2 061 • HEX View 2 383 • Физический маятник 2 015

Полный список полей таблицы

Похожие по теме исходники