[monk_2005]

дана таблица base
для работы с ней используется Table1 DataSource1
надо проссумировать все значения в ПОЛЕ ITOG таблицы и вывести полученное значеник в Edit1 .... как это зделать???

[Decoding]

Например так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>   Res: integer; <b>begin</b>    Table1.Open;    Table1.First;    Res := <font color="royalblue">0</font>;    <b>while</b> <b>not</b> Table1.Eof <b>do</b>    <b>begin</b>       Res := Res + Table1.FieldByName( <font color="royalblue">'ITOG'</font> ).AsInteger;       Table1.Next;    <b>end</b>;    Table1.Close;    Edit1.Text := IntToStr( Res ); <b>end</b>;