打印报表的列标题

最新推荐文章于 2025-11-03 11:21:00 发布

原创最新推荐文章于 2025-11-03 11:21:00 发布 · 275 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#报表 #integer #string

Delphi 专栏收录该内容

95 篇文章

订阅专栏

    procedure TReportForm.OnNewColumnReport2(Sender: TObject)；
    Caption：String；
    begin
with Sender as TBaseReport do
begin
        Underline := true；
        case I of  //其中I为Integer类型的全局变量
          1：Caption := '姓名'；
          2：Caption := '年龄'；
          3：Caption := '性别'；
          4：Caption := '部门'；
          5：Caption := '职务'；
        else
          Caption := ''备注；
        end；
        Println(Caption)；
        Underline := false；
     end； { with }
    end；