Выдаёт ошибку "Not enough actual parameters" в Borland delphi

[Fri]

Добрый день. При компиляции кода, выдаёт ошибку Not enough actual parameters. Хочу просто посчитать кол-во отрицательных элементов в первой строке с помощью процедуры.

 type
    matr=array[1..6,1..5] of Integer;
    var
      k,i,j:Integer;
      n,m:Integer;
      A:matr;
      procedure KOL (n,m:Integer; A:matr; var k:Integer); // процедура подсчёта кол-ва отриц. эл-ов в первой строке.

    var j:Integer;
       begin
      k:=0;
      for j:=1 to m do
      if A[1][j]<0 then
      k:=k+1;
      end;
begin
  n:=StrToInt(Edit1.Text);
  m:=StrToInt(Edit2.Text);

for i:=1 to n do
  for j:=1 to m do
  A[i][j]:=StrToInt(StringGrid1.Cells[j][i]); // На эту строку ругается
  KOL(n,m,A,k);
   Label2.Caption:=IntToStr(k);


end;

end.

[Вадим Мошев]

Ну, во-первых, вы неверно обращаетесь к массиву (матрице).
Если у вас матрица объявлена вот так:

matr=array[1..6,1..5] of Integer;
//........
A:matr;

То обращатиься к ней надо вот так:

A[i, j]

А не так:

A[i][j]

[Fri]

Хм..до этого обращался к матрице

A[i][j]

всё было нормально, а тут наверн не хочет из-за прямоугольной матрицы наверн). Вообщем я изменил обращение к матрице. Да он программу запускает, но при подсчёте пишет ошибку "is not a valid integer value". Странно у меня же переменные правильно по типу распределены...

[Serge_Bliznykov]

Вадим Мошев, ну, Вы чуть-чуть заблуждаетесь. можно писать и так и так.
проверьте у себя, если есть сомнения.
такой код АБСОЛЮТНО нормален и допустим:

type matr=array[1..6,1..5] of Integer;
var A:matr;
 i, j : integer;
begin
 for i:=1 to 6 do
   for j:=1 to 5 do
     A[i][j]:=i*100+j;

 for i:=1 to 6 do begin
   for j:=1 to 5 do
     Write(A[i][j]:7);
   writeln;
 end;
 readln;    
end.

____________________


Fri
но Вадим Мошев прав, ошибка кроется как раз в такой записи индексов.
К массиву так можно обращаться, а вот к StringGrid.Cells - НЕЛЬЗЯ!

поэтому исправьте строчку кода на такую:

A[i][j]:=StrToInt(StringGrid1.Cells[j,i]);

или такую

A[i,j]:=StrToInt(StringGrid1.Cells[j,i]);

какая Вам нравится больше...


p.s. про другие возможные ошибки я уже молчу... (может быть, их и нет, ведь целиком код не представлен. я имею в виду, что размеры n и m берутся из Edit'ов. Но в стринггриде может не быть столько столбцов/строк...
или в стрингриде могут быть НЕ ЧИСЛОВЫЕ значения (пустые строки, например...))

[JUDAS]

От перестановки половых органов процесс не поменяется

A[i, j] & A[i][j]

А вот в случае с StringGrid1.Cells[j,i] , с Вадим Мошевым согласен!
В обьявлении написано:

  property Cells[ACol, ARow: Integer]: string read GetCells write SetCells;

так зачем же изобретать велосипед и вставлять туда отсебятину )))
------
[QUOTE]p.s. про другие возможные ошибки ... Но в стринггриде может не быть столько столбцов/строк ..../QUOTE]
в добавок к посту Сергея, стринггрид может быть вообще не заполненным или заполненным частично, и первая подобная ячейка вызовет в строке A[i][j]:=StrToInt(StringGrid1.Cells[j,i]); ошибку типо " '' - invalid integer value "

[Fri]

я имею в виду, что размеры n и m берутся из Edit'ов. Но в стринггриде может не быть столько столбцов/строк...

Ммм.. в опциях стрингриде я написал ColCount:6 , а RowCount:5.
В едит N я ввожу 6, а в едит M я ввожу 5. Может надо добавить в код такое:

StringGrid1.ColCount:=n+1; StringGrid1.RowCount:=m+1;

---------------------

Всё равно пишет ошибку "is not a valid integer value

[JUDAS]

Всё равно пишет ошибку "is not a valid integer value

Попробуйте через StrToIntDef(Trim(StringGrid1.Cells[j,i]),-11111);
в таком случае, если будет пустая ячейка или вместо числа "вася" элемент массива будет содержать -11111. Это значение условно-ошибочное. Оно может встречатся пари вводе. Я использую данный метод тогда, когда моё псевдошибочное значение не может встречатся в секторе решаемой задачи (например для высоты рельефа -400...8848 спокойно пожно писать -10000)

[Fri]

JUDAS, спасибо

StrToIntDef(Trim(StringGrid1.Cells[j,i]),-11111);

помогло. Теперь могу ост. часть задачи делать.