Mega Code Archive

 

Categories / Delphi / ADO Database

 

[] Dbgridde toplam alma

var Bookmark : TBookmark; toplamBorc : Real; begin Bookmark := Table1.GetBookmark; Table1.DisableControls; toplamBorc := 0; try Table1.First; while not Table1.EOF do begin toplamBorc := toplamBorc + Table1BORC.Value; Table1.Next; Edit1.Text := FloatToStr(toplamBorc); end; finally Table1.GotoBookmark(Bookmark); Table1.FreeBookmark(Bookmark); Table1.EnableControls; end;