source: Generics/TemplateGenerics/Specialized/SpecializedPoint.pas

Last change on this file was 574, checked in by chronos, 18 months ago
  • Modified: Removed U prefix from unit names.
File size: 1.2 KB
Line 
1unit SpecializedPoint;
2
3interface
4
5uses
6 Classes, SysUtils;
7
8{$MACRO ON}
9
10type
11// TPoint<Integer>
12{$DEFINE TGPointType := Integer}
13{$DEFINE TGPoint := TPoint}
14{$DEFINE INTERFACE}
15{$I 'GenericPoint.inc'}
16
17// TSmallPoint<SmallInt>
18{$DEFINE TGPointType := SmallInt}
19{$DEFINE TGPoint := TSmallPoint}
20{$DEFINE INTERFACE}
21{$I 'GenericPoint.inc'}
22
23// TPointSingle<Single>
24{$DEFINE TGPointType := Single}
25{$DEFINE TGPoint := TPointSingle}
26{$DEFINE INTERFACE}
27{$I 'GenericPoint.inc'}
28
29// TPointDouble<Double>
30{$DEFINE TGPointType := Double}
31{$DEFINE TGPoint := TPointDouble}
32{$DEFINE INTERFACE}
33{$I 'GenericPoint.inc'}
34
35implementation
36
37// TPoint<Integer>
38{$DEFINE TGPointType := Integer}
39{$DEFINE TGPoint := TPoint}
40{$DEFINE IMPLEMENTATION}
41{$I 'GenericPoint.inc'}
42
43// TSmallPoint<SmallInt>
44{$DEFINE TGPointType := SmallInt}
45{$DEFINE TGPoint := TSmallPoint}
46{$DEFINE IMPLEMENTATION}
47{$I 'GenericPoint.inc'}
48
49// TPointSingle<Single>
50{$DEFINE TGPointType := Single}
51{$DEFINE TGPoint := TPointSingle}
52{$DEFINE IMPLEMENTATION}
53{$I 'GenericPoint.inc'}
54
55// TPointDouble<Double>
56{$DEFINE TGPointType := Double}
57{$DEFINE TGPoint := TPointDouble}
58{$DEFINE IMPLEMENTATION}
59{$I 'GenericPoint.inc'}
60end.
61
Note: See TracBrowser for help on using the repository browser.