работа с матрицами в delphi 7

[Serge_Bliznykov]

согласен с <- DelpHIFanat ->

Может быть, Вы хоть что-то сделаете самостоятельно?! Хотя бы попытайтесь!
А если всё так уж действительно плохо, тогда обращайтесь в раздел Фриланс, там за вознаграждение всё за Вас сделают...

[Студентос]

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

согласен с <- DelpHIFanat ->

Может быть, Вы хоть что-то сделаете самостоятельно?! Хотя бы попытайтесь!.

вот что у меня получилось, прога запускается , автозаполнение выполняется, а когда щелкаю на выполнить вылетает сообщение:
project proect1.exe raised exception class EconvertError with message '''is not a valid integer value'. process stopped.use step or run to continue .
Код:
procedure TForm1.Button2Click(Sender: TObject);
var a:array[1..12,1..12] of integer;
i,j:integer;
begin
for i:=1 to 12 do
for j:=1 to 12 do
a[i,j]:=Strtoint(stringgrid1.Cells[j,i]);

for i:=1 to 12 do
for j:=1 to 12 do
if i=j then a[i,j]:=0;

for i:=1 to 12 do
for j:=1 to 12 do
Stringgrid2.Cells[j,i]:=Inttostr(a[i,j]);
end;

end.