... problem ... evo koda ... na formi radi i odradjuje prosecnu vrdenost i i spisuje je u Label15 na ButtonClick ... mene zanima kako bih mogao podatak(dobijenu vrednost) iz ovog labela da povucem u Quick Report .... pokusao sam sa QRExpr ali ne ide ... pomagajte dobri ljudi ... unapred zahvalan ...
procedure TForm15.Button1Click(Sender: TObject);
var sumaop: real;
br: integer;
begin
/// Za dobijanje zbira
sumaop :=0;
br:=0;
ADOTable1.First;
while not ADOTable1.Eof do
begin
sumaop := sumaop + ADOTable1.fieldbyname('Broj_Opomena').AsFloat;
end;
ADOTable1.Next;
br:=br+1;
end;
prosek:=sumaop/br;
Label15.Caption := FloatToStr(prosek);
end;
procedure TForm15.Button1Click(Sender: TObject);
var sumaop: real;
br: integer;
begin
/// Za dobijanje zbira
sumaop :=0;
br:=0;
ADOTable1.First;
while not ADOTable1.Eof do
begin
sumaop := sumaop + ADOTable1.fieldbyname('Broj_Opomena').AsFloat;
end;
ADOTable1.Next;
br:=br+1;
end;
prosek:=sumaop/br;
Label15.Caption := FloatToStr(prosek);
end;