массив замена -, на+. Delphi

[serj-07]

Здравствуйте, спасибо за помощь.
все равно не получается сделал работу при нажатии кнопки,
все работает и меняет в StringGrid1 значения

Type
TA=array of real;
TA1= array of TA;

var
  Form1: TForm1;
  a:TA1;
  n,m:Longint;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Trim(Edit1.Text));
m:=StrToInt(Trim(Edit2.Text));
SetLength(a,n,m);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=m;
end;


procedure TForm1.Button2Click(Sender: TObject);
Var
i,j:Longint;
begin
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=StrToFloat (StringGrid1.Cells[i,j]);
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]<0 then
begin
a[i,j]:=abs(a[i,j]);
StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);
end;
end;
end.

но при создании отдельной процедуры как требуется в лабе
идет ошибка в StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);

Type
TA=array of real;
TA1= array of TA;

var
  Form1: TForm1;
  a:TA1;
  n,m:Longint;

implementation

{$R *.dfm}

procedure samena (a:TA1);
var
i,j,n.m:Longint
begin
n:= Length (a);
m:= Length (a);
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]<0 then
begin
a[i,j]:=abs(a[i,j]);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Trim(Edit1.Text));
m:=StrToInt(Trim(Edit2.Text));
SetLength(a,n,m);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=m;
end;


procedure TForm1.Button2Click(Sender: TObject);
Var
i,j:Longint;
begin
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=StrToFloat (StringGrid1.Cells[i,j]);
samena (a);
StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);
end;
end.

никак немогу понять почему не получается. заранее спасибо.
преведущии ответы пробовал без результата.

[mihali4]

Так цикл-то нужно новый организовывать:

for i:=0 to n-1 do
for j:=0 to m-1 do
StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);

[serj-07]

mihali4 огромное спасибо еще вопросик если можно.
при вводе в edit2 большее значения m, чем в edit1 значение n прогр. работает как nxn. и как просщитать кол-во замен " было произедено "5" замен" к примеру. спасибо.

[mihali4]

Читайте мой пост №7.

[serj-07]

mihali4 я все понял на сщет замен спасибо.
програма работает не полнастью n x m, a как n x n в чем может быть проблема?

  Type
  TA=array of real;
  TA1=array of TA;

var
  Form1: TForm1;
  a:TA1;
  n,m:Longint;

implementation

{$R *.dfm}
procedure Samena(b:TA1);
var
i,j,n,m: Longint;

begin
 n:=Length(b);
 m:=Length(b);
 for i:=0 to n-1 do
 for j:=0 to m-1 do
 if b[i,j]<0 then
    begin
     b[i,j]:=abs(b[i,j]);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 n:=StrToInt (Trim (Edit1.Text));
 m:=StrToInt (Trim (Edit2.Text));
 StringGrid1.ColCount:=n;
 StringGrid1.RowCount:=m;
 SetLength(a,n,m);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:Longint;
begin
 for i:=0 to n-1 do
 for j:=0 to m-1 do
 a[i,j]:=StrToFloat (StringGrid1.Cells[i,j]);
 begin
    Samena (a);
    for i:=0 to n-1 do
    for j:=0 to m-1 do
    StringGrid1.Cells [i,j]:=FloatToStr(a[i,j]);
    end;
end;

end.

[mihali4]

Так это же очевидно...
Вы ж сами вот тут "квадрат" делаете:

 n:=Length(b);
 m:=Length(b);

То есть у вас всегда M=N...
Я вообще не понимаю, зачем вы эти переменные переопределяете?
И зачем делаете их локальными?

[serj-07]

если честно я сам уже не понимаю.
но без определения проц. вобще не работает
я уже вобще запутался
без проц. я сделал она работает
но по заданию нужно сделать отдельную проц. и здесь проблема.

[mihali4]

Сообщение от serj-07

по заданию нужно сделать отдельную проц. и здесь проблема.

Всего-то нужно выкинуть из процедуры TForm1.Samena(b:TA1) вот это, выделенное красным:

i,j,n,m: Longint;

begin
 n:=Length(b);
 m:=Length(b);

и переделать объявление процедуры:
procedure TForm1.Samena(b:TA1);

[serj-07]

mihali4 большое спасибо, все разобрался.

да глупость сделал.

всем успехов!!!

[MadHouse]

как понимать "причем в случае совпадения числа замен с общим числом элементов в матрице предусмотреть дополнительно вывод поясняющего текста" что сделать нужно?