|
#1
|
|||
|
|||
помогите плиз
дана таблица base
для работы с ней используется Table1 DataSource1 надо проссумировать все значения в ПОЛЕ ITOG таблицы и вывести полученное значеник в Edit1 .... как это зделать??? |
#2
|
||||
|
||||
Например так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var Res: integer; begin Table1.Open; Table1.First; Res := 0; while not Table1.Eof do begin Res := Res + Table1.FieldByName( 'ITOG' ).AsInteger; Table1.Next; end; Table1.Close; Edit1.Text := IntToStr( Res ); end; |