В двумерном массиве 4*5 найти сумму элементов по строке или столбцу.

[bkmz]

В двумерном массиве 4*5 найти сумму элементов по строке или столбцу. Для выбора действия использовать RadioButton! Помогите написать, или хотя бы объясните где ошибка, почему он в StringGrid рандомом числа выводить не хочет???

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;

type
Tmassiv=array[1..4,1..5] of integer;

TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
mas:Tmassiv;
i:byte;
j:byte;
sum:integer;
implementation

{$R *.dfm}

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
randomize;
with stringGrid1 do
begin // заполнение stringGrid1
for i:=1 to 4 do
begin
For j:=1 to 5 do
begin
mas[i,j]:=random(15);
cells[i,j]:=inttostr(mas[i,j]);
end;
end;
end;
end;
end.

[Костя КС]

я вобщем что-то набросал, рандомом числа выводит

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mas: array[1..5,1..4] of integer;
i,j:integer;
sum:integer;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
for j:=1 to 4 do
begin
For i:=1 to 5 do
begin
mas[i,j]:=random(15);
stringgrid1.Cells[i,j]:=inttostr(mas[i,j]);
end;
end;
end;
end.

P.S. я с двухмерными массивами сам первый раз работаю...
но вроде все правильно

[bkmz]

Чё то все равно он мне ничего не выдает (((((

[Карась]

Сообщение от bkmz

Чё то все равно он мне ничего не выдает (((((

Поди забыли указать событие у самого стрингрида....
Стрингрид - вкладка Евентс Инспектора Обьекта - двойной щелчок на онклик.

[bkmz]

ОГРОМНЕЙШЕЕ СПАСИБО!!!!! С этим все поиду дальше делать )))))))

[bkmz]

Если не сложно подскажите ещё пожалуйста, как сделать чтоб считалась сумма строк и записывалась в последний 6 столбец? и можно ли сделать чтоб stringgrid заполнялся при запуске без клика?

[bkmz]

Помогите, c RadioButton1, не работает, хотя если удалить RB2 то все окю


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
RadioButton1: TRadioButton;
Memo1: TMemo;
Memo2: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
RadioButton2: TRadioButton;
procedure StringGrid1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
m:array[1..5,1..4] of integer;
i:integer;
j:integer;
stolb,stroki:integer;
x:integer;
implementation

{$R *.dfm}

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
randomize;
with stringGrid1 do begin
for j:=1 to 4 do
begin
For i:=1 to 5 do
begin
m[i,j]:=random(2);
stringgrid1.cells[i-1,j-1]:=inttostr(m[i,j]);
end;
end;
end;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
memo1.clear;
if RadioButton1.Checked then
for i:=1 to 5 do begin
stolb:=0;
for j:=1 to 4 do begin
stolb:=m[i,j]+stolb;
end;
Memo1.Lines.Add(inttostr(stolb));
end;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
memo2.clear;
if RadioButton2.Checked then
for j:=1 to 4 do begin
stroki:=0;
for i:=1 to 5 do begin
stroki:=m[i,j]+stroki;
end;
Memo2.Lines.Add(inttostr(stroki));
end;
end;
end.

[Карась]

1. Для кода есть специальный тег... который подсвечивает синтаксис и не трогает форматирование.
2. Пишите на что ссылается компилятор.
3. Я уже давно на форуме, но прочитать коментарий "заполнение stringGrid1" не смог... их лучше прописывать на форуме вручную, или делать преобразования текста.

Кстати зачем тут эта строка:
with stringGrid1 do begin ?

для 5х5:

Var
  Form1: TForm1;
  mas : array [1..5, 1..6] of integer;
  i, j, sum : integer;


implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
Begin
For j := 1 To 5 Do
  Begin
    For i := 1 To 5 Do
      Begin
        Mas[j,6] := Mas[j,6] + Mas[j,i];
      End;
    Stringgrid1.Cells[j,0] := IntToStr(Mas[j,6]);
    Mas[j,6] := 0;
  End;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
  For j := 1 To 5 Do
    Begin
      For i := 1 To 5 Do
        Begin
          Mas[j,i]:= Random(15);
          Stringgrid1.Cells[j,i] := IntToStr(Mas[j,i]);
        End;
    End;
Sum := 0;
end;

End.

[bkmz]

При установке В Events Rb1 OnClick программа ругается Stack Overflow

[Карась]

А что это такое и с чем его едят...

Зачем появляется Мемо и что требуется от радиобутонов?