задача на двумерный массив (delphi)

[Toxi]

дан двумерный массив размером n*m, заполненный случайными числами из промежутка -20,20
заменить положительный элемент каждой строки на отрицательный.

    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array of array of integer;
  z,k,n,m:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
randomize;
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
setlength(a,n,m);
for i:=0 to n-1 do
  for j:=0 to m-1 do
    a[i,j]:=random(51)-25;
stringgrid1.rowcount:=n+1;
stringgrid1.ColCount:=m+1;
with stringgrid1 do
  begin
   i:=0;
   for j:=1 to rowcount do
    cells[i,j]:=inttostr(j);
   j:=0;
   for i:=1 to colcount do
    cells[i,j]:=inttostr(i);
  end;
with stringgrid1 do
  for i:=1 to n do
    for j:=1 to m do
      cells[j,i]:=inttostr(a[i-1,j-1]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for j:=0 to m do
for i:=0 to n do
  if a[i,j]>0 then
    begin
    a[i,j]:=-1*(a[i,j]);
  StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
end;
 end;


end.

помогите пожалуйста разобраться почему не работает.

[whatever]

В Button2Click за пределы массива выходишь:

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for j:=0 to m-1 do
for i:=0 to n-1 do
  if a[i,j]>0 then
    begin
    a[i,j]:=-1*(a[i,j]);
  StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
    end;
 end;

А вообще, правильно будет так:

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for j:=0 to m-1 do
  for i:=0 to n-1 do
    begin
      if a[i,j]>0 then
        a[i,j]:=-1*(a[i,j]);
      StringGrid2.Cells[j+1,i+1]:=IntToStr(a[i,j]);
    end;
with stringgrid2 do
  begin
   for i:=1 to rowcount do
    cells[0,i]:=inttostr(i);
   for i:=1 to colcount do
    cells[i,0]:=inttostr(i);
  end;
end;

[Toxi]

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

В Button2Click за пределы массива выходишь:
А вообще, правильно будет так:

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for j:=0 to m-1 do
  for i:=0 to n-1 do
    begin
      if a[i,j]>0 then
        a[i,j]:=-1*(a[i,j]);
      StringGrid2.Cells[j+1,i+1]:=IntToStr(a[i,j]);
    end;
with stringgrid2 do
  begin
   for i:=1 to rowcount do
    cells[0,i]:=inttostr(i);
   for i:=1 to colcount do
    cells[i,0]:=inttostr(i);
  end;
end;

в очередной раз огромное тебе спасибо, все заработало)

[whatever]

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

в очередной раз огромное тебе спасибо, все заработало)

Надеюсь, что так. Проверь получше, чета у меня в этом коде косяки вылазят. Походу надо спать идти...
Update: Да, все работает, это я где-то косячнул со вторым stringgrid'ом, код нормальный

[Toxi]

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

Надеюсь, что так. Проверь получше, чета у меня в этом коде косяки вылазят. Походу надо спать идти...
Update: Да, все работает, это я где-то косячнул со вторым stringgrid'ом, код нормальный

все работает на ура)) спасибо огромное, Вы даже не представляете как выручаете меня

чтобы не создавать новую тему, решил написать в эту)
задача: поменять местами первый и предпоследний столбцы массива.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array of array of integer;
  n,m:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
randomize;
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
setlength(a,n,m);
for i:=0 to n-1 do
  for j:=0 to m-1 do
    a[i,j]:=random(51)-25;
stringgrid1.rowcount:=n+1;
stringgrid1.ColCount:=m+1;
with stringgrid1 do
  begin
   i:=0;
   for j:=1 to rowcount do
    cells[i,j]:=inttostr(j);
   j:=0;
   for i:=1 to colcount do
    cells[i,j]:=inttostr(i);
  end;
with stringgrid1 do
  for i:=1 to n do
    for j:=1 to m do
      cells[j,i]:=inttostr(a[i-1,j-1]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k:integer;
begin
for i:=1 to n do
begin
  a[i,0]:=a[i,m-1];
  a[i,m-1]:=k;
  StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j-1]);
end;
for i:=1 to n do
    for j:=1 to m do
      cells[j,i]:=inttostr(a[i-1,j-1]);
 end;


end.

думаю, что проблема с выводом массива, но разобраться что-то не могу((

[Hacker19_90]

StringGrid1 забыли

[Toxi]

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

StringGrid1 забыли

т.е строку

cells[j,i]:=inttostr(a[i-1,j-1]);

заменить на

StringGrid1.cells[j,i]:=inttostr(a[i-1,j-1]);

??

[Hacker19_90]

да! Вы меня правильно поняли!

[Toxi]

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

да! Вы меня правильно поняли!

что-то опять не так((

[Hacker19_90]

Выход за границы массива!