Tabelle mit Rahmen aus DBGrid erzeugen

[DeddyH]

Blind heruntergetippt, daher ohne Gewähr und sicherlich noch mit Potential nach oben:

Delphi-Quellcode:

function HTMLTableFromDataset(const Dataset: TDataset): string;
const
  TABLEHEADER = '<table style="border:1px solid black; empty-cells:show">';
  TABLEFOOTER = '</table>';
  DATALINE    = '<tr>%s</tr>';
  DATACELL    = '<td>%s</td>';
  HEADERCELL  = '<th>%s</th>';
var
  html: string;
  i: integer;
begin
  Result := TABLEHEADER;
  html := '';
  for i := 0 to Dataset.FieldCount - 1 do
    html := html + Format(HEADERCELL, [Dataset.Fields[i].Fieldname]);
  html := Format(DATALINE, [html]);
  Result := Result + html;
  Dataset.First;
  while not Dataset.EOF do
    begin
      html := '';
      for i := 0 to Dataset.FieldCount - 1 do
        html := html + Format(DATACELL, [Dataset.Fields[i].AsString]);
      html := Format(DATALINE, [html]);
      Result := Result + html;
      Dataset.Next;
    end;
  Result := Result + TABLEFOOTER;
end;