главная диагональ матрицы

[TIM123]

как в делфи прописать чтоб в матрице все элементы главной диагонали заменялись нулями. Вот мой код
procedure TForm1.Button1Click(Sender: TObject);
const m=12; n=12;
var b: array [1..n, 1..m] of integer ;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
b[i,j]:= Strtoint(StringGrid1.Cells[j,1]) ;
for i:=1 to n do
for j:=i to m do
if b[i,j]=0 then
begin if i=j then b[i,j]=0;
end;
StringGrid1.Cells[j,i]:=FloatToStr(b[i,j]);
ГДЕ ОШИБКА???

[ByAlex]

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

как в делфи прописать чтоб в матрице все элементы главной диагонали заменялись нулями. Вот мой код
procedure TForm1.Button1Click(Sender: TObject);
const m=12; n=12;
var b: array [1..n, 1..m] of integer ;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
b[i,j]:= Strtoint(StringGrid1.Cells[j,1]) ;
for i:=1 to n do
for j:=i to m do
if b[i,j]=0 then
begin if i=j then b[i,j]=0;
end;
StringGrid1.Cells[j,i]:=FloatToStr(b[i,j]);
ГДЕ ОШИБКА???

Вот так -

for i:=1 to n do
   Arr[i,i]:=0;

[TIM123]

а чо такой короткий? и если это поправка то куда ее вставлять?

[ByAlex]

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

а чо такой короткий? и если это поправка то куда ее вставлять?

Я не понял, зачем вы в этой процедуре используете массив? Можно без него обойтись, просто в StringGrid'е поменять и все!

[TIM123]

нужно программно заменить на нули

[ByAlex]

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

нужно программно заменить на нули

Ну это понятно! Просто вот так делаешь -

for i:=1 to n do
   StringGrid1.cells[i,i]:=inttostr(0);