Цитата:
|
Сообщение от Alegun
Вроде это суммирует правильно, проверьте
|
Да, вы все правильно сделали, но здесь одна моя ошибка, я не сказал, что нужно даные вводить рандомно:
Код:
begin
Randomize;
For i:=1 To 5 Do
For j:=1 To 4 Do
Strngrd1.Cells[j-1,i-1] := FloatToStr(Random(80)-25);
end;
Проблем у меня с этим не будет, я переделаю.
Ваш код работает, и считает, но не столбцы, а строки.
Нужно как-то изменить:
Код:
begin
for Row := 0 to StringGrid1.RowCount-1 do
begin
Sum:= 0;
for Col := 0 to StringGrid1.ColCount-1 do // Сложение всех колонок
Sum:= Sum + StrToInt(StringGrid1.Cells[Col, Row]);
StringGrid2.Cells[0, Row]:= IntToStr(Sum);
end;
end;
и тут я всегда зависаю...