# TSmallPoint (Delphi)

Jump to: navigation, search

# Description

This example illustrates how to use different routines from TSmallPoint.

# Code

```uses
System.SysUtils,
System.Types;
var
aSmallPoint1,aSmallPoint2,aSmallPoint3 : TSmallPoint;
aDistance : Double;
begin
aSmallPoint1.Create(1,2);
writeln(aSmallPoint1.x,' ',aSmallPoint1.y);
//The console will output:  1 2 , representing the coordonates for aSmallPoint1
aSmallPoint2.Create(2,2);
aDistance:= aSmallPoint1.Distance(aSmallPoint2);
writeln(Format('%2.2f',[aDistance]));
// The console will output:  1.00 , representing the distance between aSmallPoint1 and aSmallPoint2
aSmallPoint3:=aSmallPoint1.Add(aSmallPoint2);
writeln(aSmallPoint3.x,' ',aSmallPoint3.y);
//The console will output:  3 4 , representing the coordonates for aSmallPoint1 after Add routine
aSmallPoint3:=aSmallPoint1.Subtract(aSmallPoint2);
writeln(aSmallPoint3.x,' ',aSmallPoint3.y);
//The console will output:  -1 0 , representing the coordonates for aSmallPoint1 after Subtract routine
writeln('');

// For TSmallPoint was overloaded class operator Add, Subtract, Equal and we can use follow code
aSmallPoint1.Create(1,2);
aSmallPoint2.Create(2,2);
aSmallPoint3:=aSmallPoint1 + aSmallPoint2;
writeln(aSmallPoint3.x,' ',aSmallPoint3.y);
//The console will output:  3 4 , representing the coordonates for aSmallPoint1 after Add routine
aSmallPoint3:=aSmallPoint1 -  aSmallPoint2;
writeln(aSmallPoint3.x,' ',aSmallPoint3.y);
//The console will output:  -1 0 , representing the coordonates for aSmallPoint1 after Subtract routine
writeln('');
Readln;
end.
```