【控件功能】我来做练习-第8课-Fastreport动态定义内容打印

Fastreport动态定义内容打印

提示：参数化设置，Fastreport打印动态化

例如：

核心代码如下

`
procedure TForm1.Button1Click(Sender: TObject);
var
MyEdit, MyMemo: TfrxMemoView;
begin
// Print Edit1 text on a Memo1 component
MyEdit := frxReport1.FindObject(‘Memo1’) as TfrxMemoView;
MyEdit.Text := Edit1.Text;
frxReport1.ShowReport;
// Or simply call
// frxReport1.ShowReport;
// and populate data using parameters below
end;

procedure TForm1.frxReport1GetValue(const VarName: string; var Value: Variant);
begin
// mycombo used for ComboBox1 item
if CompareText(VarName, ‘mycombo’) = 0 then
Value := ComboBox1.Text;
// myedit used for Edit2
if CompareText(VarName, ‘my