Code: Select all
procedure Test;
begin
while (FindTypesArrayEx(TestType, [$0000], [Ground], false) > 0) do
begin
if FindTypesArrayEx(TestType, [$0000], [Ground], false) > 0 then
begin
TestList := TStringList.Create;
GetFindedList(TestList);
UseObject(StrToInt('$' + TestList.Strings[0]));
wait(100);
ignore(StrToInt('$' + TestList.Strings[0]));
TestList.Free;
end;
wait(100);
end;
end;
have any other easy method to do that? for use less processing??? =]]]
ty for atention