Арифметически действия

[Dem6]

мне нужно подсчитать общую сумму голосов по все регионам, вот моя логика:
От і:= 1 до кол-во регионов
Сума:=Сума+ рейтинг
Вот что я делаю в Delphi

 procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);
var
  i:integer;
begin
for i:=1 to ADOTable2.FieldCount do
  ADOTable1Vote.Value:=ADOTable1Vote.AsInteger+ADOTable3Rating.AsInteger;
end;

ругательства: [Fatal Error] Could not create output file 'F:\Kurs\Project1.exe'

[Stilet]

А вообще Делфи твоя может проекты компилить? Не запортилась случайно вся?

[russian-stalker]

Может вы не закрыли старый exe? или он у вас из памяти не выгрузился(возможно просто форма не видима)? Какие привилегии у Delphi(надо с возможностью записи на диск запускать)? Не антивирус ли это не даёт создавать?

[Dem6]

Компилируется уже нормально,только не считает((
По идеи оно должно подсчитать суму всех ячеек и записать результат в другую ячейку

[mihali4]

То Dem6
Вы что творите?
Кто же это на CalcFields ставит цикл по всем записям???
Срочно выкиньте строку
for i:=1 to ADOTable2.FieldCount do

Дальше. Что за сумму вы хотите подсчитать?
Какие поля есть в таблице? Какие поля вы хотите суммировать?
Если ваша формула
ADOTable1Vote.Value:=ADOTable1Vote. AsInteger+ADOTable3Rating.AsInteger ;
верна, то выполнять это действие нужно не в CalcFields, а по, например, нажатию кнопки "Подсчитать сумму":

procedure TForm1.ButtonSumClick(Sender: TObject);
var
  i,sum:integer;
begin
sum:=0;
for i:=1 to ADOTable2.FieldCount do
  sum:=sum+ADOTable3Rating.AsInteger;
end;

[Dem6]

Список кандидатов - ADOTable1
Список регионов - ADOTable2
Рейтинг по каждому региону -ADOTable3

Кто же это на CalcFields ставит цикл по всем записям???

"... Выделите компонент ADOTable и создает обработчик событий OnCalcFields. Это событие вызывается каждый раз, когда надо пересчитать вычисляемые поля " М. Фленов. Библия Делфи.
так мне советует єта книги. Жаль что нет возможности спросить у препода, я делфи решил учить на перед и взял свое прошло задания по курсовой на С++. Если кому не жалко то подредактируйте.

[mihali4]

Событие OnCalcFields вызывается по отдельности для каждой записи.
В вашем случае его применение было бы оправдано, если бы вам нужно было подсчитать сумму значений нескольких полей в каждой записи ("по строке").
А вам, насколько я понимаю, нужно подсчитать сумму "по столбцу"...

[Dem6]

Так каким, мне способом делать, через кнопку?

[mihali4]

Да, положите лэйбл под DBGrid, под колонку, по которой вы считаете сумму, и сделайте лэйбл невидимым.
А по нажатию на кнопку суммирования подсчитывайте сумму, вводите ее в лэйбл и делайте лэйбл видимым...

[Dem6]

Та мне нужно что б напротив каждого кандидата выводилось его количество голосов по все регионом в колонке рейтинг.