请问如何将Memo的内容复制到报表中？谢谢

Question

请问如何将Memo中的内容复制到报表中。要实现这个传递要用什么控件。用QRMemo可以不可以。就是把Memo的内容往QRMemo里面传。谢谢了！！！

Answer 1

//下面代码可以用于说明如何在代码中给报表元素付值
    frReport1.FindObject('YanSe2').Memo.Text := ys2;//copy(yanse,3,2);
    frReport1.FindObject('YanSe3').Memo.Text := ys3;//copy(yanse,5,2);
    frReport1.FindObject('PicOne').FillColor :=PicColor(ys1{copy(yanse,1,2)}) ;
    frReport1.FindObject('PicTwo').FillColor :=PicColor(ys2{copy(yanse,3,2)}) ;
    frReport1.FindObject('PicThree').FillColor :=PicColor(ys3{copy(yanse,5,2)}) ;
    frReport1.FindObject('ZuoMoJu').Memo.Text :=cbZmh.Text ;
    frReport1.FindObject('YouMoJu').Memo.Text :=cbYmh.Text ;
    frReport1.FindObject('GangYin').Memo.Text :=Trim(EdtGangyin.Text);
    frReport1.FindObject('LTiaoMa').Memo.Text := '00'+LMaterialCode ;
    frReport1.FindObject('RTiaoMa').Memo.Text := '00'+RMaterialCode ;
    frReport1.FindObject('LGuiGe').Memo.Text := cbLSpec.Text+'('+cbLLayer.Text+')'+cbLTexture.Text+cbLBrand.Text ;
    frReport1.FindObject('RGuiGe').Memo.Text := cbRSpec.Text+'('+cbRLayer.Text+')'+cbRTexture.Text+cbRBrand.Text ;
//    frReport1.FindObject('HuaWen').Memo.Text := ComboBox3.Text+'-'+ComboBox4.Text ;
    frReport1.PrepareReport;//由于准备报表
    frReport1.ShowReport;//用于显示报表
//你可以在Delphi代码中计算好,然后付值显示
例如:
   var
     Adays:TDateTime;
  
   ADays :=  ADOQuery1.FieldByName('Birthday').AsDatetime + 2;
   frReport1.FindObject('RGuiGe').Memo.Text := DateTimeToStr(ADays);
//上一行代码中'RGuiGe'为要付值的Memo的名称

Answer 2

设计报表的时候你点中了一个组件以后，你按F11会跳出属性栏，然后你可以在属性栏里面设置报表组件的属性，然后调用frReport1.FindObject('组件名').Memo.Text := 函数返回值这样的语句给他付值了。其他的付值语句也类似，只不过报表里面用的组件不同罢了