实例——打印报表的列标题.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 22 行

    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；