надо сложить две матрицы и вывести в третий StringGird

[mozg2011]

вот код, не могу понять где ошибка...не хочет выводить результат в третий StringGird...
помогите пжл!!
вот код кнопки которая выводит результат:

procedure TForm3.Button2Click(Sender: TObject);
var i,j: integer;
a,b: integer;
begin
for i := 0 to SG1.ColCount do
for j := 0 to SG1.RowCount do
begin
a:= StrToInt(SG1.Cells[i,j]);
b:= StrToInt(SG2.Cells[i,j]);
SG3.Cells[i,j]:= IntToStr(a + b);
end;
SG3.Visible:=True;
end;

[TorrentTor]

Циклы следует так запускать (надеюсь понятно что счет от нуля поэтому циклы до количества минус один)

.................
for i := 0 to SG1.ColCount-1 do
for j := 0 to SG1.RowCount-1 do
................

[VIK_aka_TOR]

вероятнее всего из-за того что в гриде строк допустим 5... а индекс последний строки или столбца 4
тобишь в цикле добавь

for i := 0 to SG1.ColCount -1 do
for j := 0 to SG1.RowCount -1 do

должно в принципе помочь...

[mozg2011]

да, помогло, спасибо огромное!

[mozg2011]

а еще такой вопрос, как вот эту процедуру сложения, засунуть в функцию??

[TorrentTor]

Эм несколько не понял вопроса, какую процедуру, в какую функцию О_о

[mozg2011]

тот код, который я кинул, он складывает матрицы! но у меня эта кнопка Button2 должна выполнять разные операции, в зависимости от выбора операции перед этим( у меня радио кнопки стоят) вот и поэтому я думаю удобно будет сделать функцию для операции и в код кнопки просто написать иф с условием радиокнопки и функцией

[TorrentTor]

Можно в главном разделе Type (где описывается форма ) создать процедуру (функцию я считаю не уместно использовать) пусть будет Summa и по нажитии Ctrl+Shift+C создаст заготовку под процедурку туда и вписать код;

Примерно это будет смотреться так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    SG1: TStringGrid;
    SG3: TStringGrid;
    SG2: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Summa;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioButton1.Checked then Summa;
end;

procedure TForm1.Summa;
var i,j: integer;
a,b: integer;
begin
for i := 0 to SG1.ColCount-1 do
for j := 0 to SG1.RowCount-1 do
begin
a:= StrToInt(SG1.Cells[i,j]);
b:= StrToInt(SG2.Cells[i,j]);
SG3.Cells[i,j]:= IntToStr(a + b);
end;
SG3.Visible:=True;
end;

[mozg2011]

все понятно...так даже наверно лучше! спасибо большое!

[TorrentTor]

Не за что, удачи...