Changeset 333 for Generics/TemplateGenerics/Generic/GenericPoint.inc

Timestamp:

Feb 20, 2012, 12:48:51 PM (12 years ago)

Author:

chronos

Message:

• Added: Generic Rectangle class TGRectangle<TDimension>. Introduced specialized classes TRectangleInteger, TRectangleSmallInt, TRectangleSingle, TRectangleDouble.
• TemplateGenerics version raised to 0.4.

File:

• Generics/TemplateGenerics/Generic/GenericPoint.inc (modified) (2 diffs)

Generics/TemplateGenerics/Generic/GenericPoint.inc

@@ -1 +1 @@
 {$IFDEF INTERFACE}
 
-// TGPoint<TPointCoord, TPointType> = class
+// TGPoint<TPointType> = class
 TGPoint = class
-  Coordinate: array[TGPointIndex] of TGPointType;
-  //procedure SetArray(Items: array[TGPointIndex] of TGPointType);
+  X: TGPointType;
+  Y: TGPointType;
+  procedure Add(Point: TGPoint);
 end;
 
@@ -12 +13 @@
 {$IFDEF IMPLEMENTATION}
 
+procedure TGPoint.Add(Point: TGPoint);
+begin
+  X := X + Point.X;
+  Y := Y + Point.Y;
+end;
 
 {$UNDEF IMPLEMENTATION}