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

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

    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；