source: trunk/Packages/TemplateGenerics/Generic/GenericPoint.inc

Last change on this file was 6, checked in by chronos, 10 years ago
  • Added: Now opened projects are remembered between application restarts.
  • Added: Show basic list of files in selected project.
  • Added: Packages Common and TemplateGenerics.
File size: 344 bytes
Line 
1{$IFDEF INTERFACE}
2
3// TGPoint<TPointType> = class
4TGPoint = class
5 X: TGPointType;
6 Y: TGPointType;
7 procedure Add(Point: TGPoint);
8end;
9
10{$UNDEF INTERFACE}
11{$ENDIF}
12
13{$IFDEF IMPLEMENTATION}
14
15procedure TGPoint.Add(Point: TGPoint);
16begin
17 X := X + Point.X;
18 Y := Y + Point.Y;
19end;
20
21{$UNDEF IMPLEMENTATION}
22{$ENDIF}
23
Note: See TracBrowser for help on using the repository browser.