Delphi FastReport欄位運算

FastReport欄位判斷
[IIF( >= 60,’合格’,’不合格’)]

Band顯示
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
memo2.text := ‘1234’;
If >= 60 then begin
masterdata1.visible := True;
Memo2.Color := clblue;
Memo2.text := ‘OK’;
end else begin
masterdata1.visible := False;
Memo2.Color := clred;
Memo2.text := ‘Not OK’;
end;
end;

Delphi 動態取得fastreport下物件

在Delphi下如何取得fastreport的元件及做值的修改?

var i:integer;
begin
 frxreport1.LoadFromFile('test.fr3');
 frxreport1.Report.PrintOptions.Printer := 'Adobe PDF';
 for i:=0 to frxreport1.ComponentCount -1 do begin //取得報表內所有物件
   if frxreport1.Components[i].ClassName = 'TfrxMemoView' then begin // 找到TfrxMemoView
    //ExtractFileName(frxreport1.FileName); 取得目前報表名稱
    //frxreport1.Components[i].Name; 取得元件名稱
     Tfrxmemoview(frxreport1.Components[i]).Text := 'hello world';
   end;
 end;
 frxreport1.Report.PrintOptions.ShowDialog := false;  // 不顯示對話框
 frxreport1.Report.ShowProgress := False;  // 不顯示列印進度
 frxReport1.PrintOptions.Copies:=3;  // 列印份數
 frxreport1.Report.PrepareReport(true);
 frxreport1.Print;
 // 線上編輯報表
 // frxreport1.DesignReport;
end;