[Мишка-90]

всем доброго времени суток.. помогите написать пожалуйста код.. нужно чтобы в ячейках стринггрида считались данные во всей таблице одновременно и выводило результат в некое "итого". которое находится под каждым считаемым столбцом грубо говоря.. я написал код, который может считать только по одному столбцу

Код:

1 2 3 4 5 6 7

var d : array[0..300] of real; i,j : integer;   d[1] := 0;       for i:=6 to StringGrid1.RowCount-10 do d[1] := d[1] + StrToFloat(StringGrid1.Cells[2,i]);         StringGrid1.Cells[2,30]:= FloatToStr(d[1]);

всего в нем 262 столбца.. как правильно сделать цикл для всего стринггрида?

[Janom]

Что-то типа того:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Button2Click(Sender: TObject); var   i,j:Cardinal;   Sum:real; begin for i:=0 to StringGrid1.ColCount-1 do   begin     for j:=0 to StringGrid1.RowCount-2 do       begin         StringGrid1.Cells[i,j]:=InputBox('','','');       end;   end;   for i:=0 to StringGrid1.ColCount-1 do   begin     Sum:=0;     for j:=0 to StringGrid1.RowCount-2 do       begin         Sum:=Sum+StrToFloat(StringGrid1.Cells[i,j]);       end;     StringGrid1.Cells[i,StringGrid1.RowCount-1]:=FloatToStr(Sum);   end; end;

[TOJluK]

Код:

1 2	For i:= 0 to StringGrid1.ColCount - 1 do   For j:= 0 to StringGrid1.RowCount - 1 do

[Kailon]

Код:

1 2 3 4 5 6 7 8

var d : array[0..300] of real; i,j : integer;   d[1] := 0; <font color="green">for j := 0 to StringGrid1.ColCount - 1 do</font>      for i:=6 to StringGrid1.RowCount-10 do d[1] := d[1] + StrToFloat(StringGrid1.Cells[2,i]);         StringGrid1.Cells[2,30]:= FloatToStr(d[1]);

[Мишка-90]

этот кусочек кода не пригодился:

Код:

1 2 3 4 5 6 7

for i:=0 to StringGrid1.ColCount-1 do   begin     for j:=0 to StringGrid1.RowCount-2 do       begin         StringGrid1.Cells[i,j]:=InputBox('','','');       end;   end;

Вы мне очень помогли!! спасибо большое!!!

[Страдалецъ]

Вот так элегантнее, т.к. подсчет идет налету:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); Var Row: Integer;     Summ: Extended;     Table: TStringGrid; begin  Table := TStringGrid(Sender);  if ACol = Table.FixedCols - 1 then Exit;  Summ := 0;  for Row := Table.FixedRows to Table.RowCount - 2  do Summ := Summ + StrToFloatDef(Table.Cells[ACol,Row], 0);  if Table.Cells[ACol,Table.RowCount - 1] <> FloatToStr(Summ)  then Table.Cells[ACol,Table.RowCount - 1] := FloatToStr(Summ); end;