таблица StringGrid

[Джек12]

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

[Foreseen]

Так сойдет?

procedure TForm1.Button1Click(Sender: TObject);
var
  i, k, sum_Y, sum_X: Integer;
begin
Randomize;
 for i := 0 to Stringgrid1.ColCount-2 do
 for k := 0 to Stringgrid1.RowCount-2 do
   Stringgrid1.Cells[i, k]:=inttostr(Random(100));
 for i := 0 to Stringgrid1.ColCount-2 do
  Begin
   sum_Y:=0;
   for k := 0 to Stringgrid1.RowCount-2 do
    begin
      sum_Y:=sum_Y+strtoint(Stringgrid1.Cells[i, k]);
      Stringgrid1.Cells[i, Stringgrid1.RowCount-1]:=inttostr(sum_Y);
    end;
  End;
 for k := 0 to Stringgrid1.ColCount-2 do
  Begin
   sum_X:=0;
   for i := 0 to Stringgrid1.RowCount-2 do
    begin
     sum_X:=sum_X+strtoint(Stringgrid1.Cells[i, k]);
     Stringgrid1.Cells[Stringgrid1.ColCount-1, k]:=inttostr(sum_X);
    end;
  End;
end;

[Джек12]

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

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, j, a: integer;

begin
for i:=0 to 9 do
begin
a := 0;
for j:=0 to 9 do
a := a + StrToInt(StringGrid1.Cells[i,j]);
StringGrid1.Cells[i,10] := IntToStr(a);
end;
end;

[Foreseen]

Сообщение от Джек12

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, j, a: integer;

begin
for i:=0 to 9 do
begin
a := 0;
for j:=0 to 9 do
a := a + StrToInt(StringGrid1.Cells[i,j]);
StringGrid1.Cells[i,10] := IntToStr(a);
end;
end;

begin
for j:=0 to 9 do
begin
a := 0;
for i:=0 to 9 do
a := a + StrToInt(StringGrid1.Cells[i,j]);
StringGrid1.Cells[10,j] := IntToStr(a);
end;
end;

Эх..на for ... почему то выдает ошибку((

А ошибку сюда написать конешно нельзя, секретная ошибка, да?)

[Джек12]

Теперь работает)) спасибо огромное!)))

[Foreseen]

На здоровье

[type_Oleg]

Или так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, j, a: integer;
   b:array[0..9]of Integer;
begin
 for j:=0 to 9 do b[j]:=0;
 for i:=0 to 9 do
  begin
   a := 0;
   for j:=0 to 9 do
    begin
     a := a + StrToIntDef(StringGrid1.Cells[i,j],0);  // Def - на всякий  случай
     b[j]:=b[j]+StrToIntDef(StringGrid1.Cells[i,j],0);
    end;
   StringGrid1.Cells[i,10] := IntToStr(a);
  end;
 for j:=0 to 9 do StringGrid1.Cells[10,j] := IntToStr(b[j]);;
end;

PS Сейчас подумал - StrToIntDef не обязательно, чтожно просто StrToInt, потому что здесь не вручную заполняют, а из Random, поэтому белиберды в ячейках точно не будет.