html.txt

来自「大量Delphi开发资料」· 文本代码 · 共 39 行

TXT

39 行

procedure TfMain.HHTML1Click(Sender: TObject);
var
  Html:TStringList;
  i:Word;
begin
  Html:=TStringList.Create;
  Html.Add('<HTML>');
  Html.Add('<head>');
  Html.Add('<title>'+'固定资产一览表'+'</title>');
  Html.Add('</head>');
  Html.Add('<body>');
  Html.Add('<h1><center>'+'固定资产一览表'+'</center></h1>');
  Html.Add('<table border>');
  Html.Add('<tr>');
  for i:=0 to fSeeZc.DBGrid1.Columns.Count-1 do
    if fSeeZc.DBGrid1.Columns[i].Visible then
      Html.Add('<th>'+fSeeZc.DBGrid1.Columns[i].Title.Caption+'</th>');
  Html.Add('</tr>');
  dmXh.atBdzc.First;
  While not dmXh.atBdzc.Eof do begin
    Html.Add('<tr>');
    for i:=0 to fSeeZc.DBGrid1.Columns.Count-1 do
      if fSeeZc.DBGrid1.Columns[i].Visible then
        Html.Add('<td>'+fSeeZc.DBGrid1.Fields[i].AsString+'</td>');
    Html.Add('</tr>');
    dmXh.atBdzc.Next;
  end;
  Html.Add('</table>');
  Html.Add('<hr>');
  Html.Add('制作者:英才电脑学校收支管理系统');
  Html.Add(DateToStr(Date));
  Html.Add('</body>');
  Html.Add('</HTML>');
  if SaveDialog1.Execute then
    Html.SaveToFile(SaveDialog1.FileName);
  Html.Free;
end;

html.txt - 源码说明

本页面展示了「大量Delphi开发资料」中的 html.txt 源码文件，采用文本编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?