ReverseTPA

From SCAR Divi Manual
Jump to: navigation, search

Definition

procedure ReverseTPA(var TPA: TPointArray);

Availability

SCAR Divi 3.36 > Current

Aliases

  • TPAInvert (SCAR Divi 3.26 > 3.34)
  • InvertTPA (SCAR Divi 3.26 > 3.35)

Description

This function reverses the order of a given TPointArray TPA.

Example

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

Output:

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

See Also