TPAUnique

Definition

procedure TPARemoveDupl(var TPA: TPointArray);

Availability

SCAR Divi 3.26 > Current

Description

This function removes all of the duplicate coordinates in a given TPointArray TPA.

Example

var
  TPA: TPointArray;

begin
  TPA := [Point(0, 0), Point(2, 2), Point(5, 10), Point(0, 0)];
  TPARemoveDupl(TPA);
  WriteLn('TPointArray: ' + TPAToStr(TPA));
end.

Output:

TPointArray: (0,0);(2,2);(5,10)

See Also

• TPARemove
• TPARemovePoint
• TPARemovePointEx