Delphi умножение матриц

[Tonikmod]

Помогите найти ошибку в коде программе. Просто если умножать матрицы 2х2*2х2 то все работает, а допустим 3х2*2х3 неполучаеться. Напишите пожалуйста где ошибка

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    UpDown1: TUpDown;
    Edit1: TEdit;
    Edit2: TEdit;
    UpDown2: TUpDown;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid3: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure StringGridKeyPress(Sender: TObject; var Key: Char);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
for i:=0 to StringGrid1.ColCount-1 do
for j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:=IntToStr(random(1)-0);


end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:byte;
begin
for i:=0 to StringGrid2.ColCount-1 do
for j:=0 to StringGrid2.RowCount-1 do
StringGrid2.Cells[i,j]:=IntToStr(random(1)-0);

end;

procedure TForm1.StringGridKeyPress(Sender: TObject; var Key: Char);
begin
  case key of
  #8, '0'..'9' :;
   '-' :
   begin
   key:=#0
   end;
  else
  key:=#0;
end;
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var i,j:integer;
begin
StringGrid1.ColCount:=StrToInt(Edit1.Text);
StringGrid2.RowCount:=StrToInt(Edit1.Text);
StringGrid1.Width:=StringGrid1.ColCount*(StringGrid1.DefaultColWidth+2);
StringGrid2.Height:=StringGrid2.RowCount*(StringGrid2.DefaultRowHeight+2);
for i:=0 to StringGrid1.ColCount-1 do begin
for j:=0 to StringGrid2.RowCount-1 do begin


end;
end;
end;

procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
var i,j:integer;
begin
StringGrid2.ColCount:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=StrToInt(Edit2.Text);
StringGrid2.Width:=StringGrid2.ColCount*(StringGrid1.DefaultColWidth+2);
StringGrid1.Height:=StringGrid1.RowCount*(StringGrid2.DefaultRowHeight+2);
for i:=0 to StringGrid1.ColCount-1 do begin
for j:=0 to StringGrid2.RowCount-1 do begin

end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
 var Sg1,Sg2,Sg3,i,j,n,k: integer;
begin
for i:=0 to StringGrid1.RowCount-1 do
  for j:=0 to StringGrid2.ColCount-1 do
   begin
   if n<>1 then
    if (StringGrid1.Cells[i,j]='') or (StringGrid2.Cells[i,j]='') then
     begin
      MessageBox(handle, PChar('Ìàòðèöû çàïîë
íåíû íåïðàâèëüíî!'),
        PChar('Âíèìàíèå!'), MB_OK+MB_ICONWARNING);
      n:=n+1;
      break;
     end
      else
      begin
  Sg3:=0;
  for k:=0 to StringGrid2.RowCount-1 do

  begin
      Sg1:=StrToInt(StringGrid1.Cells[i,k]);
      Sg2:=StrToInt(StringGrid2.Cells[k,j]);
      Sg3:=Sg3+(Sg1*Sg2);
  end;
 StringGrid3.Cells[j,i]:=IntToStr(Sg3);
end;
end; end;



end.

[Stilet]

неполучаеться

Как именно проявляется ошибка?

[Tonikmod]

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

Как именно проявляется ошибка?

Безымянный.jpg
Вот такая ошибка

[Serge_Bliznykov]

for i:=0 to StringGrid1.RowCount-1 do
  for j:=0 to StringGrid2.ColCount-1 do
   begin
   if n<>1 then
    if (StringGrid1.Cells[i,j]='')

в этом кривом StringGrid в методе Cells указываются индексы сначала индекс СТОЛБЦА, потом индекс СТРОКИ!

я не вижу, чтобы Вы это учитывали.

Это раз.

а во-вторых, считывайте данные в массивы и оперируйте (перемножайте) их.
Иначе с этими индексами сам чёрт ногу сломит!

ну и третье. если не разберётесь, то выкладывайте исходники своего проекта (в архиве), посмотрим...

[Tonikmod]

Вот сам проект. Помогите пожайлустаАрхив WinRAR.rar