Difference between revisions of "TPADelete"

From SCAR Divi Manual
Jump to: navigation, search
Line 1: Line 1:
 
==Definition==
 
==Definition==
 
<source lang="scar" lines="false">
 
<source lang="scar" lines="false">
procedure TPADelete(var TPA: TPointArray; const Index: Integer);
+
function TPADelete(var TPA: TPointArray; const Index: Integer): TPoint;
 
</source>
 
</source>
  
Line 11: Line 11:
  
 
==Description==
 
==Description==
Deletes the coordinate at a given position '''Index''' in a given [[TPointArray]] '''TPA'''. If the index is outside of the array bounds, nothing happens.
+
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==
 
==Example==
Line 17: Line 17:
 
var
 
var
 
   TPA: TPointArray;
 
   TPA: TPointArray;
 +
  p: TPoint;
  
 
begin
 
begin
 
   TPA := [Point(0, 0), Point(2, 2), Point(5, 10)];
 
   TPA := [Point(0, 0), Point(2, 2), Point(5, 10)];
   TPADelete(TPA, 1);
+
   p := TPADelete(TPA, 1);
 
   WriteLn(TPAToStr(TPA));
 
   WriteLn(TPAToStr(TPA));
 +
  WriteLn(IntToStr(p.X) + ',' + IntToStr(p.y));
 
end.
 
end.
 
</source>
 
</source>
Line 27: Line 29:
 
Output:
 
Output:
 
  (0,0);(5,10)
 
  (0,0);(5,10)
 +
2,2
  
 
==See Also==
 
==See Also==

Revision as of 19:38, 24 October 2011

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