Вопросы по синтаксису языка Паскаль!

[ChiterEPT]

Ребят у меня вопрос: Мне надо реализовать сборку информации об инвентаре нескольких чаров в одном скрипте и чтобы не писать для каждого чара отдельную процедуру я решил написать одну процедуру с возможностью подстановки разных массивов. Короче процедуру из скрипта бота Локомотива:

procedure InventoryCreate;
var
  i,k : integer;
begin
  for i:=0 to 79 do
    if (i<ReadH(4)) then begin
      Inventory[i,0]:=ReadH(i*36+6);  // itemType1
      Inventory[i,1]:=ReadD(i*36+8);  // ObjectId
      Inventory[i,2]:=ReadD(i*36+12); // ItemID
      Inventory[i,3]:=ReadD(i*36+16); // count
      Inventory[i,4]:=ReadH(i*36+20); // itemType2
      Inventory[i,5]:=ReadH(i*36+22); // CustType1
      Inventory[i,6]:=ReadH(i*36+24); // isEquipped
      Inventory[i,7]:=ReadD(i*36+26); // BodyPart
      Inventory[i,8]:=ReadH(i*36+30); // EnchantLevel
      Inventory[i,9]:=ReadH(i*36+32); // CustType2
    end else
      for k:=0 to 9 do Inventory[i,k]:=0; 

end;

Переделал так:

procedure InventoryCreate(array1: array[0..79,0..9] of integer);
var
  i,k : integer;
begin
  for i:=0 to 79 do
    if (i<ReadH(4)) then begin
      array1[i,0]:=ReadH(i*36+6);  // itemType1
       array1[i,1]:=ReadD(i*36+8);  // ObjectId
       array1[i,2]:=ReadD(i*36+12); // ItemID
       array1[i,3]:=ReadD(i*36+16); // count
       array1[i,4]:=ReadH(i*36+20); // itemType2
       array1[i,5]:=ReadH(i*36+22); // CustType1
       array1[i,6]:=ReadH(i*36+24); // isEquipped
       array1[i,7]:=ReadD(i*36+26); // BodyPart
       array1[i,8]:=ReadH(i*36+30); // EnchantLevel
       array1[i,9]:=ReadH(i*36+32); // CustType2
    end else
      for k:=0 to 9 do  array1[i,k]:=0; 
end;

Как вы уже поняли такой подход не сработал... массив который я подставляю в процедуру в качестве аргумента остается забитым нулями. Кто знает что я сделал не так, прошу отпишите. Заранее Спасибо

Добавлено через 3 минуты
Кстати я проделал то же самое с Функцией GetInv (то есть добавил новый аргумент: массив в котором нужно проводить поиск) И все работает. Разницу вижу в том, что в случае с процедурой InventoryCreat в аргумент должна записываться информация, а в функции GetInv происходит считывание информации из аргумента. Думаю дело в этом ... я прав?

[NLObP]

Попробуй создать массив и вызывать его по типу этого:
var
ItemsBase: array[0..79,0..9] of integer

procedure InventoryCreate(array1 : array of integer);
begin
end;

begin
InventoryCreate(ItemsBase);
end.

[alexsl]

ИМХО через VAR, т.е. передавать указатель на переменную, иначе параметры передаются как значения.

procedure InventoryCreate(var array1: array[0..79,0..9] of integer);

[ChiterEPT]

Сейчас попробую оба варианта, спасибо что откликнулись.

Добавлено через 33 минуты

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

ИМХО через VAR, т.е. передавать указатель на переменную, иначе параметры передаются как значения.

procedure InventoryCreate(var array1: array[0..79,0..9] of integer);

Во так работает спасибо Алекс , а теперь объясни мне в чем дело... когда мы обьявляем array1 как переменную процедура получает возможность записывать в нее данные???

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

procedure InventoryCreate(array1 : array of integer);
begin
end;

Ругается на Too many actual parameters.

[xkor]

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

Во так работает спасибо Алекс , а теперь объясни мне в чем дело... когда мы обьявляем array1 как переменную процедура получает возможность записывать в нее данные???

если пишеш
procedure InventoryCreate(array1: array[0..79,0..9] of integer);
то в процедуру передаётся не сам массив а его копия, если
procedure InventoryCreate(var array1: array[0..79,0..9] of integer);
то в процедуру передаётся указатель на массив и все действия которые мы с ним делаем делаются с переданным массивом, если бы мы писали
procedure InventoryCreate(const array1: array[0..79,0..9] of integer);
то мы бы так же передавали указатель но при этом он бы был доступен только для чтения

ЗЫ есть ещё ключевые слова типа var и const но я неуверен что они поддерживаются FastScript так что лучше небуду о них писать...

[ChiterEPT]

Спасибо Хкор исчерпывающий ответ.

[ChiterEPT]

Господа созрел еще один вопрос.. представим себе строку кода:

If ReadD(2)<>X and ReadD(2)<>Y and ReadD(2)<>Z then

Нельзя ее заменить на что-нибудь подобное этому?

If ReadD(2)<>X,Y,Z then

[NLObP]

Нет, так нельзя.
В нашем случае нужно делать так

If (ReadD(2)<>X) and (ReadD(2)<>Y) and (ReadD(2)<>Z) then

условие надо в скобках писать, иначе ошибка.

[dmitry501]

Можно на верно извратится

A:=ReadD(2);
if A IN (X,Y,Z) then

[xkor]

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

Можно на верно извратится
A:=ReadD(2);
if A IN (X,Y,Z) then

тогда уж:
A:=ReadD(2);
if A IN [X,Y,Z] then
но сомневаюсь что FastScript множества поддерживает полностью