Компоненты в Delphi

[Irina_94]

Здравствуйте, помогите пожалуйста.
У меня на форме есть: DBGrid с колонкой ФИО, и DateTimePicker1.
Мне нужно создать типа электронного журнала. Что бы в DBGrid создавались колонки с текущими датами???

[Streletz]

У Columns DBGrid'а есть метод Add, который отвечает за добавление колонок.
Для написания своего заголовка у нужной колонки используйте Columns.Items[i].Title.Caption, где i - номер колонки.
Только непонятно для чего это нужно. Потому что DBGrid через DataSorce связан с БД. Как такая структура данных будет соотноситься со структурой БД?

[Irina_94]

Вот нашла))

procedure TForm2.Button1Click(Sender: TObject);

var
I: Integer;
column:String;
fields:TStrings;
begin
 
  fields := TStringList.Create;
 
  ADOTable1.GetFieldNames(fields);
  ADOTable1.Close;

   try
                        ...
                     finally
                        ...
                     end;
   ýòî ïîçâîëèò íàì 
ñîõðàíèòü 
ðàáîòîñïîñîáíîñòü
 ïðîãðàììû.}
  try
      ADOQuery1.SQL.Clear;
      column := FormatDateTime('dd_mm_yyyy', Date);
      for i:=3 to fields.Count-1 do
    begin
         if fields[i]=column then
      begin
       MessageBox(handle,'Дата уже существует!','ОШИБКА',MB_OK or MB_ICONWARNING);
       exit;
      end;
    end;
   ADOQuery1.SQL.Add('ALTER TABLE '+ADOTable1.TableName+' ADD '+column+' Integer');
      ADOQuery1.ExecSQL;
   finally
   ADOTable1.Open;
     end;
end;

[Streletz]

Отлично! Поздравляю!