непойму как работает
Posted: 26.09.2014 0:57
Решыл изпробоватъ FindTypesArrayEX но не получается даже запуститъ, так как немогу понятъ в чем проблема то.. at 14:5): Type Mismatch
function FindTypesArrayEx(ObjTypes, Colors : Array of word; Containers : Array of Cardinal; InSub : Boolean) : Cardinal;
function FindTypesArrayEx(ObjTypes, Colors : Array of word; Containers : Array of Cardinal; InSub : Boolean) : Cardinal;
Code: Select all
Program New;
Procedure TestFindTypesArrayEX;
var
Types : Array of Word;
Colors : Array of Word;
Locations : Array of Cardinal;
FindDistance:Integer;
begin
FindDistance:= 2;
Types := [$0E21, $0EED];//Bandages, Gold,
Colors := [$FFFF]; // all colors
Locations := [$4001EA86,Ground]; // Test bag, ground
while (FindTypesArrayEX(Types, Colors, Locations, True)>0) do // На ету строчку выдает ошыбку
begin
MoveItem(finditem,0,backpack,0,0,0);
Wait(1000);
end;
end;
begin
TestFindTypesArrayEX;
end.