Распишите что к чему в этом скрипте очень нужно мне... подробнее по процедурам...?? плиз!..
Сначала нужно задать Событие OnChange для грида
Form1_Название грида_OnChange
потом написать скрипт в окне скрипта
procedure Form1_Button7_OnClick (Sender: string; var Cancel: boolean);
begin
end;
procedure Form1_Название грида_OnChange (Sender: string);
var
i,c, q: integer;
begin
q := 0;
c := Form1.Название грида.RowCount - 1;
for i := 0 to c do
if ValidInt(Form1.Название грида.Cells[3, i]) then q := q + StrToInt(Form1.Название грида.Cells[3, i]);
Form1.Название грида.Columns[3].Footer.Caption := IntToStr(q); // result
end;
begin
Form1.Название грида.Options := Form1.Название грида.Options + goFooter;
end.
с уважением,
Андрей Александрович.