大家好！

請問在FastReport中怎樣調用Delphi主程式中的變數？

比如說我在Delphi程式中宣告一個變數 bt := False,

然後我在FastReport在要依據 bt = False or True來顯示欄位內容.

可是直接用 if bt then 會提示 'bt識別字未宣告',

請問如何是好！謝謝！

在Memo1的Text設成[bt]

[code delphi]
procedure TForm1.frxReport1GetValue(const VarName: String;
var Value: Variant);
var
bt:boolean;
rstr:string;
begin
if bt then
rstr:='aaaaaa'
else
rstr:='bbbbb';
if VarName='bt' then
Value:=bt;
end;
[/code]

Pedro:

您好!
首先謝謝你的回覆!
我在FastReport中不是要顯示bt的內容,
而是在某個frxMemoView的事件中需要以Delphi中的bt變數來判斷以決定該frxMemoView的顯示的不同.
所以我就在frxMemoView的AfterData事件中來判斷.
代碼如下:
if bt then
Memo1.Color := clRed
else
Memo1.Color := clNone ;
但這樣就顯示報表時就會提示bt識別字未宣告.
請繼續關注,謝謝!

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
bt:boolean;
mo:TFrxMemoView;
begin
mo:=frxReport1.FindObject('Memo1') as TfrxMemoView;
mo.Text:='xxxx';
if bt then
mo.Color:=clSkyBlue
else
mo.Color:=clWindow;
end;
[/code]

我是寫在frxReport1BeforePrint事件
procedure Tfreport_400.frxReport1BeforePrint(Sender: TfrxReportComponent);
var qty_d,amt_d:currency;
kind,a:string;
begin
inherited;
if Sender is TfrxMasterData then
BEGIN
kind:=trim(R_DS.fieldbyname('kind').asstring);
TfrxGradientView(frxReport1.FindObject('Gradient3')).BEGINCOLOR:=clWhite;
TfrxGradientView(frxReport1.FindObject('Gradient3')).endCOLOR:=clSkyBlue;

if kind='1' then TfrxMemoView(frxReport1.FindObject('memo16')).memo.text:='進';
if kind='A' then TfrxMemoView(frxReport1.FindObject('memo16')).memo.text:='銷';
if (kind='B') OR (kind='2') then
begin
IF KIND='B' then TfrxMemoView(frxReport1.FindObject('memo16')).memo.text:='進退';
IF KIND='2' then TfrxMemoView(frxReport1.FindObject('memo16')).memo.text:='銷退';
TfrxGradientView(frxReport1.FindObject('Gradient3')).BEGINCOLOR:=clWhite;
TfrxGradientView(frxReport1.FindObject('Gradient3')).endCOLOR:=$008080FF;
end;
end;
end;

謝謝兩位的回覆!

兩位的回覆都是在Delphi主程式中寫的代碼,而不是在FastReport程式區寫代碼.
是不是FastRoprt程式區不能用Delphi主程式中的變數或函數或副程式?
我想要知道這個問題,謝謝!

是不行的,在delphi的變數及fastreport的變數,彼此是不認得的
利用上述去達到你要的需求(我常這樣用沒什麼問題)
或利用下述去做(剛才才試出來,沒大量驗證過)

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
bt:boolean;
begin
bt:=True;
frxReport1.ｓcript.Variables['bt']:=bt;
// frxReport1.Variables.AddVariable('bt','boolean',false);
frxReport1.ShowReport();
end;
...
procedure Memo1OnBeforePrint(Sender: TfrxComponent);
begin
if bt then
Memo1.Color:=clYellow
else
Memo1.Color:=clRed;
end;
[/code]

編輯記錄

非常謝謝兩位,我明白了~~

refrence : http://www.fast-report.com/pbc_download/fs_en.pdf

Fastreport 4 可以呼叫外部自己寫的程式:
Step1. 在自己的程式內使用TfrxReport.AddFunction
Step2. 在自己的程式內實作TfrxReport.OnUserFunction
Step3. 在.fr3 的程式區就可以正常使用程式內export出來的sub function

同上步驟, AddVariable也能滿足您的需求, 不知道是否有解答您的問題?