Declarar e utilizar Variável Global - FastReport

Delphi

19/01/2018

Ola pessoal, minha dúvida é de principiante mesmo. E se resume ao FastReport
Segue meu código:
//===========================================================
Var
PART : Currency; //Declarar como variável Global

//Aqui é onde a variável com valor acumulado seria utilizada.

procedure Memo35OnBeforePrint(Sender: TfrxComponent);
begin
Memo35.Text := floatToStr((<Lk_diarioestoque."totalitem"> / PART)*100);
end;

procedure MasterData2OnBeforePrint(Sender: TfrxComponent);
begin
if Frac(<Line> / 2) = 0.5 then
Memo34.Color := $00EBEBEB
else
Memo34.Color := clWhite;

pt:= pt + <Lk_diarioestoque."totalitem">;
set('PART', pt);
end;

procedure Memo36OnBeforePrint(Sender: TfrxComponent);
begin
Memo36.Text := FloatToStr(PART);
end;

begin

end.
//===========================================================


Então pessoal, seguinte no código acima, eu acumulo (somo) o valor e atribuo a uma variável q depois quero utilizá-la no restante do código.
Mas estou com dificuldade em usar o set().
Pois na procedure Memo35 o valor chega 0 (zero).
Horfran Ltda

Horfran Ltda

Curtidas 0
POSTAR