设置一个；“文本”；打印时在Delphi表单上向Edit1.text发送Rave报告

是否有一种方法可以将Rave报表上的某个文本（如text1）设置为Delphi应用程序中打印的Delphi表单上的某个Edit.text。 我想在delphi应用程序中创建一个应用程序表单，其中每个块代表一个单词的某个字母。。。例如-Edit1.text:=姓氏 在我的Rave报告中，text1应显示Edit1.text[1]（S），text2应显示Edit1.text[2]（u）。。。等等我知道如何在Rave Report中使用datatext函数。。。但这意味着我必须先将每个字段的每个字母分别保存在数据库列中…：(

---

请帮助我，如果你能…因为我非常愚蠢，当涉及到这类事情。

，因为这对我来说看起来很奇怪，我强烈考虑将你的<代码> TEDIT .Text <代码>直接从你的应用程序中，而不是从报告中来，因为你不太清楚你在这里问什么，我将尝试告诉你如何获取或设置TE。xt从Rave报告中的

文本组件

发送或发送到该组件

让我们假设您有

Report1

和

Page1

，其中名为

Text1

的文本组件放在某个地方。所有这些都是由Rave Reports designer保存在

C:\YourRaveProject.rav

文件中。然后假设您的Delphi项目中有一个按钮，其OnClick事件处理程序中有以下代码d两个编辑框，

Edit1

，从中加载

Text1

组件中的文本，从中设置

Text1

组件文本

uses
  RpRave, RpDefine, RpBase, RpSystem, RvCsStd;

procedure TForm1.Button1Click(Sender: TObject);
var
  RaveProject: TRvProject;
begin
  RaveProject := TRvProject.Create(nil);
  RaveProject.ProjectFile := 'C:\YourRaveProject.rav';

  try
    RaveProject.Open;
    RaveProject.SelectReport('Report1', False);
    // get the text from the Text1 component from the report
    Edit1.Text := (RaveProject.ProjMan.FindRaveComponent('Page1.Text1', nil) as TRaveText).Text;
    // set the text of the Text1 component on the report
    (RaveProject.ProjMan.FindRaveComponent('Page1.Text1', nil) as TRaveText).Text := Edit2.Text;
    // and execute the report for showing the result of setting the text
    // note, this can be omitted of course if you want only to get the value
    RaveProject.ExecuteReport('Report1');
    RaveProject.Close;

  finally
    RaveProject.Free;
  end;
end;

请把这个作为一个例子，而不是对你的问题的真正回答，因为我觉得现在这个问题无法回答。如果你指定了确切的问题，那么我们可能会帮助你解决真正的问题

---

在Delphi 2009上使用Rave Reports 7.6.2进行测试。

+1问题是不可理解的，但TLame的答案是正确的，非常清楚，并且经过评论。