Array.scar testing

[Wanted]

https://github.com/OSI1/OSI1/commit/d6ade21b1c85e9108f19d273b4681f6511fd3fc8

 

Just added IntInTIA/Pos

 

List

 

 * function InStrArrPos(S: string; Arr: TStringArray; var Pos: Integer; CaseSenstive: Boolean): Boolean;
    By: Wanted
* function IntInTIAPos(Int: Integer; TIA: TIntegerArray; var Pos: Integer): Boolean;
    By: Wanted
* function IntInTIA(Int: Integer; TIA: TIntegerArray): Boolean;
    By: Wanted
* function TBOutlineToTPA(TB: TBox): TPointArray;
    By: Wanted
* function TBAOutlineToATPA(TBA: TBoxArray): T2DPointArray;
    By: Wanted
* function LoadTextTPA(Text: string; Chars: Integer): TPointArray;
    By: Anonymous
* function FindTextTPAInTPA(TextTPA, SearchTPA: TPointArray; var X, Y: LongInt): Boolean;
    By: Wanted
* procedure SortATPASize(var ATPA: T2DPointArray; BigFirst: Boolean);
    By: Wanted
* procedure FilterPointsDist(var Points: TPointArray; MinDist, MaxDist, CX, CY: Extended);
    By: Wanted
* procedure FilterPointsPie(var Points: TPointArray; SRad, ERad, SAng, EAng: Extended; CX, CY: Integer);
    By: Wanted
* function FindColorsCircleTolerance(var Points: TPointArray; Color, Tol: Integer; CX, CY, R: Extended): Boolean;
    By: Wanted

 

Test away!