请问各位高手如何通过代码控制RAVE文件中的直线,可以添加新直线,或更改已有直线长度。

解决方案 »

  1.   

    参考:
    var
      MyPage: TRavePage;
      MyText: TRaveText;RvProject.ProjectFile := ChangeFileExt(ParamStr(0), '.rav');
      RvProject.Open;
      with RvProject.ProjMan do
        begin
          // init report title
          MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
          MyText := FindRaveComponent('txMainTitle',MyPage) as TRaveText;
          MyText.Text := edMainTitle.Text;
          MyText := FindRaveComponent('txSubTitle',MyPage) as TRaveText;
          MyText.Text := edSubTitle.Text;
          MyText := FindRaveComponent('txDoctor',MyPage) as TRaveText;
          MyText.Text := edDoctor.Text;
        end;更具体的就去Rave的官方站点看FAQ吧http://lysoft.7u7.net