Changeset 90 for trunk/Packages/TemplateGenerics/Generic/GenericPoint.inc

Timestamp:

Sep 7, 2012, 6:45:53 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Aktualizace balíčku TemplateGenerics na novější verzi. Se starou nešel projekt správně přeložit.

File:

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

trunk/Packages/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}