source: branches/AS8051toC/Packages/TemplateGenerics/Generic/GenericPoint.inc

Last change on this file was 26, checked in by chronos, 12 years ago
  • Upraveno: Překlad rozdělen do fáze zpracování maker a druhé fáze zpracování instrukcí.
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.