[ zof @ 30.05.2006. 22:03 ] @
| ... 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; |