Экспортировать DBGrid в HTML . Delphi , Компоненты и Классы , TDBGrid

Код-snippet на Delphi, экспортирующий DBGrid в HTML. Функция DBGridToHTML принимает два параметра: объект TDBGrid и необязательный набор опций TGridToHTMLOptions, определяющий включение заголовков в вывод.

Функция инициализирует некоторые константы для HTML-шапки и подножки, а также стили для различных элементов таблицы. Затем она проходит по каждому столбцу грида, создавая таблицу с строками для заголовков и данных.

Для каждого ячейки в гриде функция вызывает функцию TD, генерирующую соответствующий код HTML. Эта функция принимает три параметра: объект TColumn, булевое значение, указывающее является ли это строка заголовка, и необязательное значение ширины.

Функция TD генерирует код HTML для ячейки таблицы на основе ее выравнивания и содержимого. Она также применяет стили из массива StyleNames, чтобы определить выравнивание и форматирование ячейки.

Наконец, функция DBGridToHTML конкатенирует все сгенерированные коды HTML в единый строку и возвращает ее как результат.

Вот некоторые улучшения, которые можно было бы сделать:

Вот пример того, как можно было бы рефакторить код, чтобы сделать его более модульным и легко поддерживаемым:

const
  cHTMLStart  = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">';
  cHTMLEnd    = '</BODY></HTML>';

function GenerateTableHeader(const Columns: TColumns; const Options: TGridToHTMLOptions): String;
begin
  Result := '';
  if ghWithHeaders in Options then
    for I := 0 to Pred(Columns.Count) do begin
      if Assigned(Columns.Items[I].Field) then begin
        Result := Result + TD(Columns.Items[I], TRUE, -1);
      end;
    end;
end;

function GenerateTableBody(const DataSet: TDataSet; const Columns: TColumns): String;
begin
  Result := '';
  while not DataSet.Eof do begin
    Result := Result + BodyRowStart;
    for I := 0 to Pred(Columns.Count) do begin
      if Assigned(Columns.Items[I].Field) then begin
        Result := Result + TD(Columns.Items[I], FALSE, -1);
      end;
    end;
    Result := Result + BodyRowEnd;
    DataSet.Next;
  end;
end;

function DBGridToHTML(const Grid: TDBGrid; const Options: TGridToHTMLOptions): String;
begin
  Result := '';
  with Grid do begin
     // ... (rest of the code remains the same)
    Result := GenerateTableHeader(Columns, Options);
    Result := GenerateTableBody(DataSet, Columns);
     // ... (rest of the code remains the same)
  end;
end;

В этом рефакторированном коде функция DBGridToHTML разбита на две отдельные функции: GenerateTableHeader и GenerateTableBody. Каждая функция отвечает за генерацию конкретной части HTML-вывода, что делает ее более легко поддерживаемой и модульной.

Эта статья описывает функцию DBGridToHTML для экспорта данных из DBGrid в HTML-формат.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS