开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
HtmlData.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

HtmlData.pas：源码内容
  1. unit HtmlData;
  3. interface
  5. uses
  6.   Classes, DB;
  8. type
  9.   THtmlStrings = class (TStringList)
  10.   public
  11.     procedure AddHeader (Title: string); virtual;
  12.     procedure AddFooter; virtual;
  13.   end;
  15.   THtmlData = class (THtmlStrings)
  16.   public
  17.     constructor Create (DataSet: TDataSet);
  18.     procedure AddHeader (Title: string); override;
  19.     procedure AddFooter; override;
  20.     procedure AddTableRow (LinkStr: string);
  21.   private
  22.     Data: TDataSet;
  23.   end;
  25. implementation
  27. uses
  28.   SysUtils;
  30. ////// THtmlStrings //////
  32. procedure THtmlStrings.AddHeader (Title: string);
  33. begin
  34.   Clear;
  35.   Add ('<HTML>');
  36.   Add ('<HEAD>');
  37.   Add ('<TITLE>' + Title + '</TITLE>');
  38.   Add ('</HEAD>');
  39.   Add ('<BODY>');
  40.   Add ('<H1><CENTER>' + Title + '</CENTER></H1>');
  41. end;
  43. procedure THtmlStrings.AddFooter;
  44. begin
  45.   Add ('<HR>');
  46.   Add ('Generated by the program ' +
  47.     ExtractFileName (ParamStr(0)));
  48.   Add ('</BODY>');
  49.   Add ('</HTML>');
  50. end;
  52. ////// THtlmData //////
  54. constructor THtmlData.Create (DataSet: TDataSet);
  55. begin
  56.   inherited Create;
  57.   Data := DataSet;
  58. end;
  60. procedure THtmlData.AddHeader (Title: string);
  61. var
  62.   I: Integer;
  63. begin
  64.   inherited AddHeader (Title);
  66.   // start table with borders
  67.   Add('<table border>');
  68.   // new row, with the table headers (tag <th>) for the visible fields
  69.   Add('<tr>');
  70.   for I := 0 to Data.FieldCount - 1 do
  71.     if Data.Fields[I].Visible then
  72.       Add('<th>' + Data.Fields[I].FieldName + '</th>');
  73.   Add('</tr>');
  74. end;
  76. procedure THtmlData.AddFooter;
  77. begin
  78.   // end the table
  79.   Add('</table>');
  81.   inherited AddFooter;
  82. end;
  84. procedure THtmlData.AddTableRow (LinkStr: string);
  85. var
  86.   I: Integer;
  87. begin
  88.   // new row, with table data (tag <td>)
  89.   Add('<tr>');
  90.   if LinkStr <> '' then
  91.     // add a link
  92.     Add('<td><a href="' + LinkStr +
  93.       Data.Fields[0].DisplayText + '.htm">'
  94.       + Data.Fields[0].DisplayText + '</a></td>')
  95.   else
  96.     // plain data
  97.     Add('<td>' + Data.Fields[0].DisplayText + '</td>');
  99.   // all the other visible fields
  100.   for I := 1 to Data.FieldCount - 1 do
  101.     if Data.Fields[I].Visible then
  102.       if Data.Fields[I].DisplayText <> '' then
  103.         Add('<td>' + Data.Fields[I].DisplayText + '</td>')
  104.       else
  105.         Add('<td><br></td>');
  106.   Add('</tr>');
  107. end;
  109. end.