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

Last change on this file was 2, checked in by chronos, 9 years ago
  • Added: TPakFile class for extraction PAK files from original game.
File size: 344 bytes
Line 
1{$IFDEF INTERFACE}
2
3// TGPoint<TPointType> = class
4TGPoint = record
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.