Just a bunch of unnecessary stuff..
Current one:
SCAR Code:
{*******************************************************************************
Function IsPointInTPA(Point:TPoint; TPA:TPointArray):Boolean;
By: Bad Boy JH
Description:
*******************************************************************************}
Function IsPointInTPA(Point:TPoint; TPA:TPointArray):Boolean;
var I:integer;
begin
for i := 0 to high(TPA)-1 do
begin
if (TPA[i].x = Point.x) and (TPA[i].y = Point.y) then
begin
Result:= True
Exit;
end;
end;
Result := False
end;
New one
SCAR Code:
{*******************************************************************************
Function IsPointInTPA(Point:TPoint; TPA:TPointArray):Boolean;
By: Bad Boy JH
Description:
*******************************************************************************}
Function IsPointInTPA(Point:TPoint; TPA:TPointArray):Boolean;
var I:integer;
begin
for i := 0 to high(TPA) - 1 do
Result := (TPA[i].x = Point.x) and (TPA[i].y = Point.y);
end;