[maxmaslo]

Главный проект

Код:

procedure TForm1.Button1Click(Sender: TObject);

Var
  i,j: Integer;
  a:array[1..k,1..k] of Integer;
  st:string;
   begin
  matric();
  begin
   for i:= 1 to k  do
 for j:=1 to  k do
 begin
 str(a[i,j],st);
 StringGrid1.Cells[j-1,i-1] := st;
end;
 end;
 end;

Подключаемый модуль

Код:

unit Unit2;

interface
const k=4; n=11;
var
a:array [1..k,1..k]of integer;
procedure matric;
implementation
procedure matric();
var i,j:integer;
begin
for i:=1 to k do
for j:=1 to k do
a[i,j]:=round((k/2-i+0.3)*(j*k+5*n)*sin(j));
end;
end.

Не вводит и всё. У знакомого всё точно так же и вводит. В чём проблема?

[Alegun]

Одну какую нить матрицу надо убрать, заполняется в юните2, а заполняет стрингрид другая из юнит1, но она пустая.