Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 215

•  TDictionary Custom Sort  6 263

•  Fast Watermark Sources  6 062

•  3D Designer  8 967

•  Sik Screen Capture  6 384

•  Patch Maker  6 808

•  Айболит (remote control)  6 788

•  ListBox Drag & Drop  5 664

•  Доска для игры Реверси  96 332

•  Графические эффекты  7 007

•  Рисование по маске  6 292

•  Перетаскивание изображений  5 180

•  Canvas Drawing  5 547

•  Рисование Луны  5 250

•  Поворот изображения  4 798

•  Рисование стержней  3 395

•  Paint on Shape  2 653

•  Генератор кроссвордов  3 537

•  Головоломка Paletto  2 824

•  Теорема Монжа об окружностях  3 638

•  Пазл Numbrix  2 380

•  Заборы и коммивояжеры  3 062

•  Игра HIP  2 017

•  Игра Go (Го)  1 942

•  Симулятор лифта  2 303

•  Программа укладки плитки  2 007

•  Генератор лабиринта  2 461

•  Проверка числового ввода  2 144

•  HEX View  2 478

•  Физический маятник  2 094

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



Есть множество причин, для чего может понадобиться запрос на получение структуры используемой программой таблицы. Одна из причин - необходимость во время выполнения программы создавать 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;





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

Список запущенных процессов

Список установленных устройств




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте