如何可以将EDIT的TEXT值传递给FASTREPORT自定义的变量??我在FASTREPORT中定义了一个变量I,我想通过一个按钮事件将EDIT的值传递给I,该如何编写代码?

解决方案 »

  1.   

    procedure TForm1.frReport1GetValue(const ParName: String;
      var ParValue: Variant);
    begin    
      //方法一 I为在报表数据中定义的变量
      if ParName = 'I' then
      Begin
        ParValue := Edit3.Text;
      End;
    end;
      

  2.   

    第一步:在报表设计器中为报表增加变量,report菜单--variables,点category,为新变量命名为var1,然后在报表中加入text object,点插入表达式(insert expression),点variables页面,双击刚才新建的变量var1,然后退出就行了(也可在文本框的内容中直接输入[var1])。
    第二步:使用fastReport的OnGetValue事件然后添加下面的代码:
    if VarName='var1' then  Value='your string';
    这样就行了啊!值得说明的是在添加variables时必须是category,也就是如果加了类别之后,再在该类别中再加Variables就会有错误!所加的variables必须是category的类型(总类别)。我已经回答了不止一次了。^-^
      

  3.   

    if VarName='var1' then  Value:='your string';
    应该是这样才对吧!