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



Вопросы
  Как соединить несколько файлов в один
   Категория: Файловая система
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети
  Группировка TopAdvGrid
   Категория: Компоненты
  Как закачать файл из Интернета
   Категория: Интернет и Сети
  Удалить файл в Корзину
   Категория: Приложение
  Прочитать содержимое папки
   Категория: Файловая система
  Как показать balloon tooltips в программе
   Категория: Приложение
  Перекодировка в DBASE
   Категория: Базы данных
  Автоматическое определения кодировки текста
   Категория: Текст и строки

Delphi - База Знаний: Создание и удаление полей

  << Вернуться к Содержанию  

//Создание
procedure TForm1.Button2Click(Sender: TOObject);
var
  T: TStringField;
begin
  Query1.Close;
  T := TStringField.Create(Self);
  T.FieldName := 'CO_NAME';
  T.Name := Query1.Name + T.FieldName;
  T.Index := Query1.FieldCount;
  T.DataSet := Query1;
  Query1.FieldDefs.UpDate;
  Query1.Open;
end;



//Удаление
procedure TForm1.Button1Click(Sender: TObject);
var
  TC: TComponent;
begin
  TC := FindComponent('Query1CO_NAME');
  if not (TC = nil) then
  begin
    Query1.Close;
    TC.Free;
    Query1.Open;
  end;
end;
  << Вернуться к Содержанию