[Budda]

Здравствуйте уважаемые форумчане!
У меня есть такая задача, на форме 2 едитки(в них вводится размерность матрицы и она создается при нажатии на баттон1), матрица создается в stringgrid1(первая матрица) и аналогично через другие две едитки(при нажатии на баттон2) создается вторая матрица в stringgrid2. Между матрицами стоит RadioGroup1 и в них выбирается действия которое необходимо совершить с матрицей(+,-,*, и умножение на число(при выборе умножение число вводится просто в существующую едитку) и весь результат выводится в stringgrid3.

У меня проблема такова:
Я не знаю что надо записать в RadioGroup1 чтобы при выборе + матрицы автоматически слаживались и выводились в stringgrid3(знаю что при выборе + матрицы должны бить одинаковой размерности потому может возможно как нить записать что если размерность 1-ой матрицы=2-ой то выполняется вычисление). Тут создается две матрицы отдельно потому что при выборе умножения размерность матриц разная, помогите плз!!! Вот код я смог только сделать так чтобы размерность вводилась в едитки и матрицы создавались:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Edit6: TEdit;
    Edit7: TEdit;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    RadioGroup1: TRadioGroup;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mas1,mas2,a,mas3:array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 StringGrid1.FixedCols :=0;
  StringGrid1.FixedRows :=0;

  StringGrid1.ColCount := StrToInt(Edit1.Text);
  StringGrid1.RowCount := StrToInt(Edit2.Text);

  StringGrid1.Options := StringGrid1.Options + [goEditing];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with StringGrid1 do
SetLength(mas1, ColCount * RowCount);
with StringGrid2 do
SetLength(mas2, ColCount * RowCount);
end;


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin

end;

end.

[Kailon]

может возможно как нить записать что если размерность 1-ой матрицы=2-ой то выполняется вычисление

А что просто сравнить два StringGrid'a по размеру никак?

[Budda]

Вот в принципе сделал что хотел, может в дальнейшем кому-то поможет