Crie, edite, inspecione, calcule e exporte pastas Excel diretamente de codigo Delphi ou C++Builder. HotXLS e uma biblioteca nativa Object Pascal para XLS e XLSX, projetada para ferramentas desktop, lotes, relatorios e geracao de documentos sem automacao do Microsoft Excel.
Este artigo é para teams moving datasets from Delphi applications into customer-ready workbook reports. Ele trata database export to spreadsheet reports como engenharia documental de produção, não como uma chamada isolada de componente.
O risco prático é que a dataset dump is not a report when type conversion, null handling, totals, grouping, sorting, and workbook styling are not part of the export contract. Por isso o fluxo precisa de contrato escrito, diagnósticos observáveis e arquivos de regressão representativos.
Decisões de arquitetura
Treat the dataset schema as a workbook contract. field-to-column mapping, captions, order, grouping, and sort rules / null, date, time zone, currency, decimal, and Boolean formatting
- field-to-column mapping, captions, order, grouping, and sort rules
- null, date, time zone, currency, decimal, and Boolean formatting
- formula totals, subtotals, filters, frozen panes, and table-like navigation
- streaming, pagination, and memory policy for large result sets
Fluxo de implementação
Map database fields to worksheet semantics. The order below keeps the workflow reviewable for Delphi and C++Builder teams.
- derive an export profile from the report requirement and dataset schema
- validate field types and required columns before creating the workbook
- write headers, formats, and formulas before streaming large row groups
- apply filters, freeze panes, totals, and page setup after the data range is known
- compare row counts and key aggregates with the source query
Evidências de validação
Export diagnostics for support and finance teams. Keep these fields with the output or support record.
- query identifier, field mapping, row count, column count, and export profile
- null and data-type conversions, locale profile, and formula summary
- source aggregate totals compared with workbook totals
- warnings for truncated text, unsupported types, or memory-limit fallback
Types matter more than cell values
Database export needs explicit mapping from field types to worksheet cells, number formats, formulas, totals, and visible labels. Without that mapping, users receive a workbook that looks correct but behaves poorly in analysis.
Notas de implementação para produção
Trate HotXLS: database export to spreadsheet reports in Delphi como um contrato de serviço explícito em torno das chamadas HotXLS, separando validação de entrada, gravação da pasta de trabalho, verificação da saída e evidências para suporte
- Defina fonte de dados, intervalos de células e formato de saída antes de criar a pasta de trabalho
- Registre linhas, planilhas, avisos e caminho de saída em evidências revisáveis
- Encapsule detalhes da aplicação em helpers testáveis, não em eventos de interface
- Reabra ou inspecione o arquivo salvo antes de entregá-lo a outro sistema ou ao cliente
Falhas que devem ser ensaiadas
- SaveAs com sucesso não prova que o contrato de negócio continua correto
- Fontes, permissões e configurações regionais podem variar entre servidor e máquina de desenvolvimento
- Logs não devem expor senhas, dados de clientes nem links internos
Exemplo Delphi detalhado
O exemplo Delphi a seguir mostra uma fronteira de serviço prática para este tema, mantendo política, logs e validação em uma camada testável
procedure ExportCustomerReport(DataSet: TDataSet; const OutputFile: string);
var
Wb: TXLSXWorkbook;
Sh: IXLSWorksheet;
RowIndex: Integer;
begin
RequireOpenDataSet(DataSet);
Wb := TXLSXWorkbook.Create;
try
Sh := Wb.Sheets[0];
Sh.Name := 'Customers';
WriteHeaderRow(Sh, ['CustomerId', 'Name', 'Region', 'Balance', 'LastOrder']);
RowIndex := 2;
DataSet.First;
while not DataSet.Eof do
begin
Sh.Range['A' + IntToStr(RowIndex)].Value := DataSet.FieldByName('CustomerId').AsString;
Sh.Range['B' + IntToStr(RowIndex)].Value := DataSet.FieldByName('Name').AsString;
Sh.Range['C' + IntToStr(RowIndex)].Value := DataSet.FieldByName('Region').AsString;
Sh.Range['D' + IntToStr(RowIndex)].Value := DataSet.FieldByName('Balance').AsCurrency;
Sh.Range['E' + IntToStr(RowIndex)].Value := DataSet.FieldByName('LastOrder').AsDateTime;
Inc(RowIndex);
DataSet.Next;
end;
Sh.Range['A1:E1'].ApplyBuiltinStyle(xbsTitle);
ApplyDateAndCurrencyFormats(Sh, RowIndex - 1);
AddAutoFilterToHeader(Sh, 'A1:E' + IntToStr(RowIndex - 1));
WriteExportManifest(Wb, DataSet, RowIndex - 2);
if Wb.SaveAs(OutputFile) <> 1 then
RaiseWorkbookSaveError(OutputFile);
finally
Wb.Free;
end;
end;Checklist de produção
- Run the workflow on an empty workbook, a normal customer workbook, and a worst-case workbook
- Open the output with the target spreadsheet application or downstream importer
- Log product version, template version, profile, row count, output path, elapsed time, and warning count
- Keep passwords, temporary files, customer data, and support bundles under explicit retention rules
- Add regression workbooks when a customer file exposes a new edge case