Сложение

[Droid]

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i,j,k,a,st1,st2:integer;
mas: array [1..4,1..10] of integer;
begin
stringgrid1.Cells[0,0]:='m,n';
for i:=1 to 10 do
begin
stringgrid1.Cells[0,i]:=inttostr(i);
stringgrid1.Cells[i,0]:=inttostr(i);
stringgrid1.Cells[i,1]:=inttostr(i);
end;

for i:=1 to 9 do
begin
a:=i+1;
stringgrid1.Cells[i,2]:=inttostr(a);
stringgrid1.Cells[10,2]:=inttostr(1);
end;

for i:=1 to 8 do
begin
a:=i+2;
stringgrid1.Cells[i,3]:=inttostr(a);
stringgrid1.Cells[9,3]:=inttostr(1);
stringgrid1.Cells[10,3]:=inttostr(2);
end;

for i:=1 to 7 do
begin
a:=i+3;
stringgrid1.Cells[i,4]:=inttostr(a);
stringgrid1.Cells[8,4]:=inttostr(1);
stringgrid1.Cells[9,4]:=inttostr(2);
stringgrid1.Cells[10,4]:=inttostr(3);
end;
Stringgrid2.Cells[0,1]:='Ср';
for st1:=1 to 4 do
begin
for st2:=1 to 10 do
begin
//stringgrid1.Cells[st2,st1]:=inttostr(mas[st2,st1]);
mas[st2,st1]:=strtoint(stringgrid1.Cells[st2,st1]);
end;
end;

end;
end.

[N!ckeL]

procedure TForm1.FormCreate(Sender: TObject);

попробуй в procedure TForm1.FormOnShow(Sender: TObject);

[Droid]

Такая же ошибка (

[Droid]

лан если получется я вечером прочитаю а то я уже тороплюсь...

[N!ckeL]

mas: array [1..4,1..10] of integer; - значит первое число максимум 4, а второе 10, а у тебя:

for st1:=1 to 4 do
begin
for st2:=1 to 10 do
begin
//stringgrid1.Cells[st2,st1]:=inttostr(mas[st2,st1]);
mas[st2, st1]:=strtoint(stringgrid1.Cells[st2,st1]);
end;
end;

измени везде
mas[st2,st1]:=strtoint(stringgrid1.Cells[st2,st1]); на
mas[st1,st2]:=strtoint(stringgrid1.Cells[st1,st2]);