source: trunk/Packages/TemplateGenerics/Specialized/SpecializedMatrix.pas

Last change on this file was 30, checked in by chronos, 12 years ago
  • Updated: Component versions.
  • Added: Missing forms.
File size: 3.5 KB
Line 
1unit SpecializedMatrix;
2
3{$mode Delphi}{$H+}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10type
11 {$MACRO ON}
12
13// TMatrixInteger<Integer, Integer, Integer>
14{$DEFINE TGMatrixIndexX := Integer}
15{$DEFINE TGMatrixIndexY := Integer}
16{$DEFINE TGMatrixItem := Integer}
17{$DEFINE TGMatrixIndex := TMatrixIntegerIndex}
18{$DEFINE TGMatrixRow := TMatrixIntegerRow}
19{$DEFINE TGMatrix := TMatrixInteger}
20{$DEFINE TGMatrixSortCompare := TMatrixIntegerSortCompare}
21{$DEFINE TGMatrixToStringConverter := TMatrixIntegerToStringConverter}
22{$DEFINE TGMatrixFromStringConverter := TMatrixIntegerFromStringConverter}
23{$DEFINE TGMatrixMerge := TMatrixIntegerMerge}
24{$DEFINE INTERFACE}
25{$I 'GenericMatrix.inc'}
26
27// TMatrixByte<Integer, Integer, Byte>
28{$DEFINE TGMatrixIndexX := Integer}
29{$DEFINE TGMatrixIndexY := Integer}
30{$DEFINE TGMatrixItem := Byte}
31{$DEFINE TGMatrixIndex := TMatrixByteIndex}
32{$DEFINE TGMatrixRow := TMatrixByteRow}
33{$DEFINE TGMatrix := TMatrixByte}
34{$DEFINE TGMatrixSortCompare := TMatrixByteSortCompare}
35{$DEFINE TGMatrixToStringConverter := TMatrixByteToStringConverter}
36{$DEFINE TGMatrixFromStringConverter := TMatrixByteFromStringConverter}
37{$DEFINE TGMatrixMerge := TMatrixByteMerge}
38{$DEFINE INTERFACE}
39{$I 'GenericMatrix.inc'}
40
41// TMatrixObject<Integer, Integer, TObject>
42{$DEFINE TGMatrixIndexX := Integer}
43{$DEFINE TGMatrixIndexY := Integer}
44{$DEFINE TGMatrixItem := TObject}
45{$DEFINE TGMatrixIndex := TMatrixObjectIndex}
46{$DEFINE TGMatrixRow := TMatrixObjectRow}
47{$DEFINE TGMatrix := TMatrixObject}
48{$DEFINE TGMatrixSortCompare := TMatrixObjectSortCompare}
49{$DEFINE TGMatrixToStringConverter := TMatrixObjectToStringConverter}
50{$DEFINE TGMatrixFromStringConverter := TMatrixObjectFromStringConverter}
51{$DEFINE TGMatrixMerge := TMatrixStringMerge}
52{$DEFINE INTERFACE}
53{$I 'GenericMatrix.inc'}
54
55implementation
56
57{$DEFINE IMPLEMENTATION_USES}
58{$I 'GenericMatrix.inc'}
59
60// TMatrixInteger<Integer, Integer, Integer>
61{$DEFINE TGMatrixIndexX := Integer}
62{$DEFINE TGMatrixIndexY := Integer}
63{$DEFINE TGMatrixItem := Integer}
64{$DEFINE TGMatrixIndex := TMatrixIntegerIndex}
65{$DEFINE TGMatrixRow := TMatrixIntegerRow}
66{$DEFINE TGMatrix := TMatrixInteger}
67{$DEFINE TGMatrixSortCompare := TMatrixIntegerSortCompare}
68{$DEFINE TGMatrixToStringConverter := TMatrixIntegerToStringConverter}
69{$DEFINE TGMatrixFromStringConverter := TMatrixIntegerFromStringConverter}
70{$DEFINE TGMatrixMerge := TMatrixIntegerMerge}
71{$DEFINE IMPLEMENTATION}
72{$I 'GenericMatrix.inc'}
73
74// TMatrixByte<Integer, Integer, Byte>
75{$DEFINE TGMatrixIndexX := Integer}
76{$DEFINE TGMatrixIndexY := Integer}
77{$DEFINE TGMatrixItem := Byte}
78{$DEFINE TGMatrixIndex := TMatrixByteIndex}
79{$DEFINE TGMatrixRow := TMatrixByteRow}
80{$DEFINE TGMatrix := TMatrixByte}
81{$DEFINE TGMatrixSortCompare := TMatrixByteSortCompare}
82{$DEFINE TGMatrixToStringConverter := TMatrixByteToStringConverter}
83{$DEFINE TGMatrixFromStringConverter := TMatrixByteFromStringConverter}
84{$DEFINE TGMatrixMerge := TMatrixByteMerge}
85{$DEFINE IMPLEMENTATION}
86{$I 'GenericMatrix.inc'}
87
88// TMatrixObject<Integer, Integer, TObject>
89{$DEFINE TGMatrixIndexX := Integer}
90{$DEFINE TGMatrixIndexY := Integer}
91{$DEFINE TGMatrixItem := TObject}
92{$DEFINE TGMatrixIndex := TMatrixObjectIndex}
93{$DEFINE TGMatrixRow := TMatrixObjectRow}
94{$DEFINE TGMatrix := TMatrixObject}
95{$DEFINE TGMatrixSortCompare := TMatrixObjectSortCompare}
96{$DEFINE TGMatrixToStringConverter := TMatrixObjectToStringConverter}
97{$DEFINE TGMatrixFromStringConverter := TMatrixObjectFromStringConverter}
98{$DEFINE TGMatrixMerge := TMatrixStringMerge}
99{$DEFINE IMPLEMENTATION}
100{$I 'GenericMatrix.inc'}
101
102end.
103
Note: See TracBrowser for help on using the repository browser.