FastReport中Memo语法的编写??

Question

在 Memo 连接数据 : [Q_cjtzd."q1"]
编码区:
begin
    if [Q_cjtzd."q1"]='0' then
    begin
       [Q_cjtzd."q1"]='';
    //   FindObject('Memo').Memo.Text='';
    end;
end我希望当[Q_cjtzd."q1"]是0时 使得Memo的值为空??
怎么写呢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  myMemo: TfrxMemoView;
begin
  myMemo := TfrxMemoView(frxReport1.FindObject('Memo1'));
  if myMemo <> nil then
  if trim(myMemo.Memo.Text) = '0' then
     myMemo.Memo.Text := '';  frxreport1.ShowReport;end;

Answer 2

我有这么写过,不行.因为我连接数据库中信息,我需要在Fastreport memo中代码

Answer 3

trim(myMemo.Memo.Text)要把两边的空格去掉的

Answer 4

解决了,在Memo属性:HIdeZeros设为True就行

Answer 5

不过还有个问题就是:
假设  memo1,memo2从数据库获取值为12和5,
5/12<50% 则memo3 为空,否则memo3取值为memo2的值