Luxophia

LUX.D2.V4.pas
156 строк · 5.2 Кб
Перенос по словам
1
unit LUX.D2.V4;
2

3
interface //#################################################################### ■
4

5
uses LUX, LUX.D1, LUX.D2;
6

7
type //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【型】
8

9
     //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
10

11
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TSingle2DV4
12

13
     TSingle2DV4 = record
14
     private
15
       ///// アクセス
16
       function GetV( const I_:Integer ) :TSingle2D; inline;
17
       procedure SetV( const I_:Integer; const V_:TSingle2D ); inline;
18
     public
19
       ///// プロパティ
20
       property V[ const I_:Integer ] :TSingle2D read GetV write SetV; default;
21
     case Integer of
22
      0:( _ :array [ 1..4 ] of TSingle2D; );
23
      1:( _1, _2, _3, _4 :TSingle2D;      );
24
     end;
25

26
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TDouble2DV4
27

28
     TDouble2DV4 = record
29
     private
30
       ///// アクセス
31
       function GetV( const I_:Integer ) :TDouble2D; inline;
32
       procedure SetV( const I_:Integer; const V_:TDouble2D ); inline;
33
     public
34
       ///// プロパティ
35
       property V[ const I_:Integer ] :TDouble2D read GetV write SetV; default;
36
     case Integer of
37
      0:( _ :array [ 1..4 ] of TDouble2D; );
38
      1:( _1, _2, _3, _4 :TDouble2D;      );
39
     end;
40

41
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TdSingle2DV4
42

43
     TdSingle2DV4 = record
44
     private
45
       ///// アクセス
46
       function GetV( const I_:Integer ) :TdSingle2D; inline;
47
       procedure SetV( const I_:Integer; const V_:TdSingle2D ); inline;
48
     public
49
       ///// プロパティ
50
       property V[ const I_:Integer ] :TdSingle2D read GetV write SetV; default;
51
     case Integer of
52
      0:( _ :array [ 1..4 ] of TdSingle2D; );
53
      1:( _1, _2, _3, _4 :TdSingle2D;      );
54
     end;
55

56
     //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TdDouble2DV4
57

58
     TdDouble2DV4 = record
59
     private
60
       ///// アクセス
61
       function GetV( const I_:Integer ) :TdDouble2D; inline;
62
       procedure SetV( const I_:Integer; const V_:TdDouble2D ); inline;
63
     public
64
       ///// プロパティ
65
       property V[ const I_:Integer ] :TdDouble2D read GetV write SetV; default;
66
     case Integer of
67
      0:( _ :array [ 1..4 ] of TdDouble2D; );
68
      1:( _1, _2, _3, _4 :TdDouble2D;      );
69
     end;
70

71
 
72
implementation //############################################################### ■
73

74
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【レコード】
75

76
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TSingle2DV4
77

78
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
79

80
/////////////////////////////////////////////////////////////////////// アクセス
81

82
function TSingle2DV4.GetV( const I_:Integer ) :TSingle2D;
83
begin
84
     Result := _[ I_ ];
85
end;
86

87
procedure TSingle2DV4.SetV( const I_:Integer; const V_:TSingle2D );
88
begin
89
     _[ I_ ] := V_;
90
end;
91

92
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
93

94
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TDouble2DV4
95

96
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
97

98
/////////////////////////////////////////////////////////////////////// アクセス
99

100
function TDouble2DV4.GetV( const I_:Integer ) :TDouble2D;
101
begin
102
     Result := _[ I_ ];
103
end;
104

105
procedure TDouble2DV4.SetV( const I_:Integer; const V_:TDouble2D );
106
begin
107
     _[ I_ ] := V_;
108
end;
109

110
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TdSingle2DV4
111

112
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
113

114
/////////////////////////////////////////////////////////////////////// アクセス
115

116
function TdSingle2DV4.GetV( const I_:Integer ) :TdSingle2D;
117
begin
118
     Result := _[ I_ ];
119
end;
120

121
procedure TdSingle2DV4.SetV( const I_:Integer; const V_:TdSingle2D );
122
begin
123
     _[ I_ ] := V_;
124
end;
125

126
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
127

128
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TdDouble2DV4
129

130
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& private
131

132
/////////////////////////////////////////////////////////////////////// アクセス
133

134
function TdDouble2DV4.GetV( const I_:Integer ) :TdDouble2D;
135
begin
136
     Result := _[ I_ ];
137
end;
138

139
procedure TdDouble2DV4.SetV( const I_:Integer; const V_:TdDouble2D );
140
begin
141
     _[ I_ ] := V_;
142
end;
143

144
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& public
145

146
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【クラス】
147

148
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$【ルーチン】
149

150
//############################################################################## □
151

152
initialization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 初期化
153

154
finalization //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 最終化
155

156
end. //######################################################################### ■
Luxophia

Использование cookies
