Помогите сделать задачу в Delphi

[Igrohim]

Имеется Stringgrid1 заполненный произвольными числами (размеры таблицы (ixj)). Необходимо нажатием кнопки заменить все отрицательные элементы таблицы на их абсолютное значение.

Мне кажется здесь должен быть цикл с использованием функции abs, но не могу представить какой именно, подскажите пожалуйста.

Как я примерно понимаю:

procedure TForm1.Button2Click(Sender: TObject);
begin
for i := 0 to StringGrid1.RowCount do
for j := 0 to stringgrid1.colcount do
 begin
 m:=strtofloat(StringGrid1.Cells[i,j]);
 if StrToFloat(stringgrid1.Cells[i,j])<0 then
 m=abs(StrToFloat(StringGrid1.Cells[i,j]);
 end;
end;

[min@y™]

procedure TForm100500.ButtonClick(Sender: TObject);
var
  r, c, x: integer;
begin
  with stringgrid1 do
    for r:= fixedrows to rowcount - 1 do
      for c:= fixedcols to colcount - 1 do
        if trystrtoint(cells[r, c], x)
          then cells[r, c]:= inttostr(abs(x))
          else begin
                 Application.MessageBox(PChar('ахтунг, неверный ввод данныхЪ... пыщ-пыщ!'),
                                        PChar('Ошибка'),
                                        mb_Ok+mb_IconError);
                  exit;
               end;
end;

[Serge_Bliznykov]

       if trystrtoint(cells[r, c], x)

не, наоборот.
У этого хитровывернутого StringGrid в методе Cells сначала указывается столбец, потом строка:

       if trystrtoint(cells[c, r], x)

[min@y™]

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

не, наоборот.
У этого хитровывернутого StringGrid в методе Cells сначала указывается столбец, потом строка:

       if trystrtoint(cells[c, r], x)

действительно, ты прав, сорри.

[Igrohim]

Большое спасибо!

[Igrohim]

Спасибо за Вашу внимательность!