
Originally Posted by
http://docs.wizzup.org
SortATPAFrom
procedure SortATPAFrom(var a: T2DPointArray; const From: TPoint);
Sorts the T2DPointArray a from the TPoint From
Simba Code:
program new;
var ATPA :T2dPointarray;
begin
setlength(ATPA,5);
ATPA[0] := [Point(0,0)];
ATPA[1] := [Point(300,300)];
ATPA[2] := [Point(999,999)];
ATPA[3] := [Point(299,299)];
ATPA[4] := [Point(301,302)];
SortATPAFrom(ATPA ,Point(300,300));
writeln(ATPA);
end.
Code:
Compiled successfully in 16 ms.
[[(0, 0)], [(300, 300)], [(999, 999)], [(299, 299)], [(301, 302)]]
Successfully executed.
So it does nothing. Any suggestion?