TPADelete

From SCAR Divi Manual
Revision as of 16:49, 23 April 2012 by Freddy (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Definition

function TPADelete(var TPA: TPointArray; const Index: Integer): TPoint;

Availability

SCAR Divi 3.28 > Current

Aliases

  • TPARemove (SCAR Divi 3.26 > SCAR Divi 3.27)

Description

Deletes the TPoint at a given position Index in a given TPointArray TPA and returns the deleted value. If the index is outside of the array bounds, nothing happens.

Example

var
  TPA: TPointArray;
  p: TPoint;

begin
  TPA := [Point(0, 0), Point(2, 2), Point(5, 10)];
  p := TPADelete(TPA, 1);
  WriteLn(TPAToStr(TPA));
  WriteLn(IntToStr(p.X) + ',' + IntToStr(p.y));
end.

Output:

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

See Also