delphi Код:
for i=1 to 100 do begin
if (ItemBase[i] == 256) then begin // например
КактоОбработатьЭтоЗначение(ItemBase[i]);
end;
end;
Добавлено через 7 минут
Но по-моему тебе нужно делать вот что:
delphi Код:
var
ItemBase:array[1..100] of integer;// создали массив
objectID:integer;
i: integer;
flag: boolean;
procedure Init; //Вызывается при включении скрипта
begin
end;
// при приходе пакета
begin
if FromServer and (pck[1]=#$21) and (ReadD(12)= itemID) then begin
// при условии
if условие then
objectID:=ReadD(8);
flag:=false; // сбрасываем флажок
// ищем objectID в массиве
for i=1 to 100 do begin
if (ItemBase[i] = objectID) then begin
// текущий objectID уже есть в массиве, т.е. добавлять новый не надо.
// ставим флажок, который далее пропустит цикл поиска первого пустого значения и добавление в массив objectID
flag := true;
Break; // прерываем дальнейший перебор массива.
end;
end;
// нужно добавить текущий objectID в массив
if (flag = false) then begin
// ищем первый свободный элемент в массиве
for i:=1 to 100 do begin
if (ItemBase[i] = 0) then begin
// как только нашли - на его место пишем текущий objectID
ItemBase[i]:= objectID; // да просто :)
Break; // прерываем дальнейший перебор массива.
end;
end;
end;
end;
end;
end.