Суммирование в Dbgrid

[Novichok95]

как произвести суммирование и вывести это в вычисляемое поле.
procedure TForm4.Button4Click(Sender: TObject);
var
i,summa:integer;
begin
summa:=0;
if Form5.Dbedit2.text='97-100' then i:=summa+10;
if Form5.Dbedit2.text='85-96' then i:=summa+8;
if Form5.Dbedit2.text='70-84' then i:=summa+6;
if Form5.Dbedit2.text='97-100' then i:=summa+10;
if Form5.Dbedit3.text='99-100' then i:=summa+10;
if Form5.Dbedit3.text='97-98' then i:=summa+8;
if Form5.Dbedit3.text='94-96' then i:=summa+6;
if Form5.Dbedit3.text='0-96' then i:=summa-10;
if Form5.Dbedit4.text='1' then i:=summa-1;
if Form5.Dbcombobox1.text='1-ое место' then i:=summa+10;
if Form5.Dbcombobox1.text='2-ое место' then i:=summa+9;
Adotable1ITOGo.AsInteger:=i;//я создала вычисляемое поле Adotable1.
Правильный ли это код*?

[vmilyoshin]

Сообщение от Novichok95

как произвести суммирование и вывести это в вычисляемое поле.
procedure TForm4.Button4Click(Sender: TObject);
var
i,summa:integer;
begin
summa:=0;
if Form5.Dbedit2.text='97-100' then i:=summa+10;
if Form5.Dbedit2.text='85-96' then i:=summa+8;
if Form5.Dbedit2.text='70-84' then i:=summa+6;
if Form5.Dbedit2.text='97-100' then i:=summa+10;
if Form5.Dbedit3.text='99-100' then i:=summa+10;
if Form5.Dbedit3.text='97-98' then i:=summa+8;
if Form5.Dbedit3.text='94-96' then i:=summa+6;
if Form5.Dbedit3.text='0-96' then i:=summa-10;
if Form5.Dbedit4.text='1' then i:=summa-1;
if Form5.Dbcombobox1.text='1-ое место' then i:=summa+10;
if Form5.Dbcombobox1.text='2-ое место' then i:=summa+9;
Adotable1ITOGo.AsInteger:=i;//я создала вычисляемое поле Adotable1.
Правильный ли это код*?

Автор поясни пожалуйста, тебе надо вывести в переменную типа integer результат записанный в DBEdit?

[Аватар]

я создала вычисляемое поле Adotable1

Если это вычисляемое поле, то значение в него нужно приваивать в событии Adotable1.OnCalcFields. И зачем дергать DB-компоненты, если значения полей можно взять из DataSet, на который они нацелены? Я надеюсь это тот же Adotable1, иначе проблем не избежать

[Novichok95]

ну это были мои предположения, я впервые работаю с базами данных. Значит вы имели ввиду если в таблице будут данные то тогда если в какой то колонке будет написано то определять можно так(добавление баллов)?если это возможно,то каким должен быть код?