很菜的问题,学DELPHI学到报表设计了,我想问,在FORM中有个组件EDIT1,怎么把EDIT1。TEXT传递到在RAVE中打印?

解决方案 »

  1.   

    通常用rave的param,当然你也可以自定义dataset传进去。方法很多.
      

  2.   

    一种方法是采用参数,在*.rav文件中,拖放datatext,将他的datafield属性设置为param.param1, 
    程序: 
     with RvProject1 do 
    begin 
    SetParam('Param1',edit1.text); 
    ExecuteReport('Report1'); 
    Close; 
    end; 
    另一种方法是:查找对象,代码: 
    var 
    Mypage:TRavePage; 
    MyText:TRaveText; 
    begin 
     with RvProject1.ProjMan do 
    begin 
    Mypage:=FindRaveComponent('Report1.Page1',nil) as TravePage; 
    Mytext:=FindRaveComponent('Text1',MyPage) as TraveText; 
    Mytext.Text:= edit1.text; 
    end; 
    试一下,很简单的