Code: Select all
Export Function HexInArea(x, y, area);
var i, tmp, list;
begin
tmp := false;
list := AreaToList(area, 0);
for i = 1 to list[1] do
begin
if list[1][i] = x and list[2][i] = y then
begin
tmp := true;
break;
end;
end;
result := tmp;
End;
Notka:
Funkcja InArea(x, y, area) ma takie samo zastosowanie