img
00:00
imgDRKB online - Динамическое создание полей
imgimgimg
  Общие вопросы
  Delphi IDE, компиллятор, отладчик, редактор
  Язык программирования Дельфи
  VCL
  Системные функции и WinAPI
  Базы данных
  Общие вопросы
  Теория баз данных, архитектура и проектирование
  Базы данных с нуля (статья)
  Проблемы при работе с Blob полями
  Работа через BDE
  Установка BDE
  Настройка BDE, Database Desktop
  Справочные материалы по BDE
  Работа с Alias
  Поддержка пользователей, защита
  Непосредственное обращение к BDE
  Работа с базами данных
  Работа с TTable, TQuery и TDatabase
  Объяснения некоторых ошибок при работе с базами данных
  Работа с таблицами
  Работа с BDE в сети, общий доступ к данным
  Работа с полями
  Использование нумерации в TFields
  Изменить размер поля или его тип
  Динамическое создание полей
  Работа с автоинкрементальными (AutoInc) полями
  Как задать выражение по умолчанию для объекта TField
  Создание автоинкрементного поля SQL запросом?
  Как создать вычисляемые поля во время исполнения программы
  Как создать поле Lookup во время выполнения приложения
  Обновление вычисляемых полей
  Работа с индексами
  Работа с запросами SQL в BDE
  Разные вопросы
  Работа через ADO
  Работа через ODBC
  Работа с DBExpress
  Частные вопросы по конкретным базам данных
  Работа с визуальными компонентами (DB Controls)
  Работа с SQL
  XML
  Работа с файловой системой
  Репортинг, работа с принтером
  Работа с сетью, интернетом, протоколами
  Работа с графикой и мультимедиа
  Математика, алгоритмы
  Форматы файлов, данных. Конвертация форматов
  ActiveX, COM, DCOM, MIDAS, CORBA, интерфейсы, OLE, DDE
  Разработка приложений
  Kylix
  Delphi.Net
  Развлечения
  
  [drkb=2006] Комментариев: 0 
Динамическое создание полей


delphi
var
  I: Integer;
  Field: TField;
begin
  { Поля можно добавлять только к неактивному набору данных. }
  Table1.Active := False;

  { Распределяем определенные поля если набор данных еще не был активным. }
  Table1.FieldDefs.Update;

  { Создаем все поля из определений и добавляем к набору данных. }
  for I := 0 to Table1.FieldDefs.Count - 1 do
  begin
    { Вот где мы действительно сообщаем набору данных о необходимости создания поля. }
    { Поле "назначается", но нам нужно не это, нам нужна просто ссылка на новое поле. }
    Field := Table1.FieldDefs[I].CreateField(Table1);
  end;

  { Вот пример того, как вы можете добавить дополнительные, вычисленные поля }
  Field := TStringField.Create(Table1);
  Field.FieldName := 'Total';
  Field.Calculated := True;
  Field.DataSet := Table1;

  { Теперь мы можем увидеть наши поля. }
  Table1.Active := True;
end;





@Drkb::02616

Взято с http://delphiworld.narod.ru
Количество статей: 4366
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
Сегодня, 12:08
seseewe
Секс Знакомства в твоем городе! Выбери телку на вечер: http://•••.club
Вчера, 20:24
аdmin
я думаю нет))
Вчера, 20:23
admin
даже не знаю, прошел ли ты тест на шизофреника smiley
Вчера, 20:19
аdmin
ну хз ) смотря из чего)
Вчера, 20:18
admin
А тебе шляпа в самый раз?
Вчера, 20:17
аdmin
а как же подписка на шизофреника?
Вчера, 20:16
admin
за рекламу страницы vk зобаню! ))
Вчера, 20:12
аdmin
ок ок ок) батя подьехал либо же это шизофрения )
Вчера, 20:11
admin
Когда у твоего профиля будет id=1, тогда говори что взломано smiley а не буквы в другой раскладке
Вчера, 20:10
аdmin
жду пикабушников тут https://vk.com/car_tattoo
Статистика
 СегодняВсего
Посетителей10732133359
Запросов27618325320151
Online
Пользователей0
Гостей30
imgimgimgimg
 
img
     00:00