Ответ
Цитата:
var
x,o,z,n:integer;
begin
x:=StringgridObRashod.rowCount;
o:=0;
repeat
begin
LabelItogRashod.caption:=labelItogRashod+stringgri dObRashod.cells[1,StringGridObRashod.RowCount];
end;
until x>=StringGridObRashod.rowCount;
|
Уйдешь в бесконечный цикл, потому что "х" не меняет своего значения
Цитата:
слушай а как можно сосчитать все значения в столбце
|
Задаешь цикл от нулевой до последней строки таблицы и все
Код:
Summ := 0;
for i := 0 to StringGrid.RowCount - 1 do
Summ := Summ + StrToIntDef(StringGrid.Cells[1, i], 0); //где StringGrid.Cells[столбец, строка]
Label1.Caption := IntToStr(Summ);
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|