[fcdk_pavel]

Доброго времени суток!У меня такой вопрос:
на форме 2 StringGrid: в StringGrid1 я загружаю данные из Excel, потом по нажатию кнопки в StringGrid2 должны отобразиться суммы столбцов из StringGrid1
http://files.mail.ru/3EB28F64A098447...6CABEA92E3?t=1
т.е сложить соответствующие данные в столбцах
(2:3+2:6+2:9) и вывести в StringGrid2
в ячейки 1:1 ...2:2 и тд.
Подскажите пожалуйста!

[Alegun]

Можно так

Код:

var
d: array[0..2] of integer = (2, 5, 8);

procedure TForm1.Button2Click(Sender: TObject);
var
 i, b, k: integer;
begin
 for b := 0 to 2 do
  begin
   k:= 0;
   for i := StringGrid1.FixedCols+1 to StringGrid1.ColCount-1 do
    k:= k + StrToInt(StringGrid1.Cells[i, StringGrid1.FixedRows + d[b]]);
    with StringGrid2 do Cells[b + FixedCols, b + FixedRows]:= IntToStr(k);
 end;
end;

вывод суммы в StringGrid2 идёт по диагонали (1:1, 2:2, 3:3) думаю в задании ошибка, но это легко исправить.

[fcdk_pavel]

не получается вот исходник может вы поможите?

[Alegun]

А что не получается-то, скопипастить процедуру обработчика клика кнопки что-ли? Здесь всё согласно рисунку. Показывайте.

Оффтоп:

...вот исходник...

Смотреть сейчас нечем - нету делфи