Delphi: might not have been initialized

[MisterON]

Прога в два потока умножает и транспонирует матрицы(транспонирование вроде получается) зависает на умножении в строке : a2[i,j]:= Random(100);

  TThread1 = class(TThread)
    a,res : array of array of integer;
    procedure Execute; override;
  end;

  TThread2 = class(TThread)  //умножение
   a2,b2,res2 : array of array of integer;
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TThread1.Execute;
var
    n,i,j:integer;
begin
n:=4;
Setlength(a,n,n);
Setlength(res,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
a[i,j]:= Random(100);
//транспонирование
for i:=0 to n-1 do
for j:=0 to n-1 do
res[j,i]:=a[i,j];
end;

procedure TThread2.Execute;
var
    i, j, k, s, n: integer;
begin
  n:=3;
for i:=1 to n do
for j:=1 to n do
a2[i,j]:= Random(100);
for i:=1 to n do
for j:=1 to n do
b2[i,j]:= Random(100);
  for I := 1 to n do //умножение
    for j := 1 to n do
      begin
        s:=0;
        for k := 1 to n do
         s:=s+a2[k,i]*b2[j,k];
        res2[j,i]:=s;
      end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  T1 : TThread1;
  T2 : TThread2;
  i,j,n,n2:integer;
begin
  T1 := TThread1.Create(True);
  T2 := TThread2.Create(True);

  T1.Resume;
  T2.Resume;

  T1.WaitFor;
  T2.WaitFor;


n:=3;
n2:=4;
for i:=0 to n2-1 do
for j:=0 to n2-1 do
StringGrid4.Cells[j,i]:=IntToStr(T1.a[i,j]); //вывод случайной матрицы
for i:=0 to n2-1 do
for j:=0 to n2-1 do
StringGrid5.Cells[j,i]:=IntToStr(T1.res[i,j]); //вывод транспонированной
for I := 1 to n do
for j := 1 to n do
stringgrid1.cells[i,j]:=IntToStr(T2.a2[i,j]); //вывод случайной матрицы
for I := 1 to n do
for j := 1 to n do
stringgrid2.cells[i,j]:=IntToStr(T2.b2[i,j]);  //вывод случайной матрицы
for I := 1 to n do
for j := 1 to n do
stringgrid3.cells[i,j]:=IntToStr(T2.res2[i,j]);  //вывод произведения матриц

  T1.Free;
  T2.Free;
end;

[MisterON]

добавил SetLength в умножение - стала заполнятся первая матрица да и то на половину

[Stilet]

Куда добавил?
По идее у тебя нет в TThread2 для a2,b2,res2 вызова SetLength() для их инициализации.

[MisterON]

вот сюда:

procedure TThread2.Execute;
var
    i, j, k, s, n: integer;
begin
  n:=3;
Setlength(a,n,n);
Setlength(res,n,n);
Setlength(b,n,n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:= Random(100);
for i:=1 to n do
for j:=1 to n do
b[i,j]:= Random(100);
  for I := 1 to n do //óìíîæåíèå
    for j := 1 to n do
      begin
        s:=0;
        for k := 1 to n do
         s:=s+a[k,i]*b[j,k];
        res[j,i]:=s;
      end;
end;

[phomm]

Динамические массивы индескируются с 0, поэтому, надо все циклы исправить с for i := 1 to n do на for i := 0 to n-1 do
Поправляй и проверяй, плюс ещё через отладку пройдись (F5 F7).

П.С. Зачем менять пол ?

[Stilet]

на for i := 0 to n-1 do

А лучше

 на for i := Low(a) to High(a) do

И не париться по поводу пределов.