简单问是:以下这句中,Index的意思是什么?property Month: Integer index 2 read GetDateElement writ

D

driayu

Unregistered / Unconfirmed
GUEST, unregistred user!
简单问是:以下这句中,Index的意思是什么?property Month: Integer index 2 read GetDateElement write SetDateElement stored False; ( 积分: 40 )<br />不明白意,请高手提点.
 
应该是指read(GetDateElement)和write(SetDateElement)过程中的一个参数的值吧<br>看看Delphi的源码就清楚了(摘自Controls.pas)<br><br>&nbsp;&nbsp;TSizeConstraints&nbsp;=&nbsp;class(TPersistent)<br>&nbsp;&nbsp;private<br>&nbsp;&nbsp;&nbsp;&nbsp;FControl:&nbsp;TControl;<br>&nbsp;&nbsp;&nbsp;&nbsp;FMaxHeight:&nbsp;TConstraintSize;<br>&nbsp;&nbsp;&nbsp;&nbsp;FMaxWidth:&nbsp;TConstraintSize;<br>&nbsp;&nbsp;&nbsp;&nbsp;FMinHeight:&nbsp;TConstraintSize;<br>&nbsp;&nbsp;&nbsp;&nbsp;FMinWidth:&nbsp;TConstraintSize;<br>&nbsp;&nbsp;&nbsp;&nbsp;FOnChange:&nbsp;TNotifyEvent;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;SetConstraints(Index:&nbsp;Integer;&nbsp;Value:&nbsp;TConstraintSize);<br>&nbsp;&nbsp;protected<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Change;&nbsp;virtual;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;AssignTo(Dest:&nbsp;TPersistent);&nbsp;override;<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;Control:&nbsp;TControl&nbsp;read&nbsp;FControl;<br>&nbsp;&nbsp;public<br>&nbsp;&nbsp;&nbsp;&nbsp;constructor&nbsp;Create(Control:&nbsp;TControl);&nbsp;virtual;<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;OnChange:&nbsp;TNotifyEvent&nbsp;read&nbsp;FOnChange&nbsp;write&nbsp;FOnChange;<br>&nbsp;&nbsp;published<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;MaxHeight:&nbsp;TConstraintSize&nbsp;index&nbsp;0&nbsp;read&nbsp;FMaxHeight&nbsp;write&nbsp;SetConstraints&nbsp;default&nbsp;0;<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;MaxWidth:&nbsp;TConstraintSize&nbsp;index&nbsp;1&nbsp;read&nbsp;FMaxWidth&nbsp;write&nbsp;SetConstraints&nbsp;default&nbsp;0;<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;MinHeight:&nbsp;TConstraintSize&nbsp;index&nbsp;2&nbsp;read&nbsp;FMinHeight&nbsp;write&nbsp;SetConstraints&nbsp;default&nbsp;0;<br>&nbsp;&nbsp;&nbsp;&nbsp;property&nbsp;MinWidth:&nbsp;TConstraintSize&nbsp;index&nbsp;3&nbsp;read&nbsp;FMinWidth&nbsp;write&nbsp;SetConstraints&nbsp;default&nbsp;0;<br>&nbsp;&nbsp;end;<br><br>procedure&nbsp;TSizeConstraints.SetConstraints(Index:&nbsp;Integer;<br>&nbsp;&nbsp;Value:&nbsp;TConstraintSize);<br>begin<br>&nbsp;&nbsp;case&nbsp;Index&nbsp;of<br>&nbsp;&nbsp;&nbsp;&nbsp;0:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Value&nbsp;&lt;&gt;&nbsp;FMaxHeight&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FMaxHeight&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(Value&nbsp;&gt;&nbsp;0)&nbsp;and&nbsp;(Value&nbsp;&lt;&nbsp;FMinHeight)&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FMinHeight&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Change;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;1:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Value&nbsp;&lt;&gt;&nbsp;FMaxWidth&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FMaxWidth&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(Value&nbsp;&gt;&nbsp;0)&nbsp;and&nbsp;(Value&nbsp;&lt;&nbsp;FMinWidth)&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FMinWidth&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Change;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;2:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Value&nbsp;&lt;&gt;&nbsp;FMinHeight&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FMinHeight&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(FMaxHeight&nbsp;&gt;&nbsp;0)&nbsp;and&nbsp;(Value&nbsp;&gt;&nbsp;FMaxHeight)&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FMaxHeight&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Change;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;3:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Value&nbsp;&lt;&gt;&nbsp;FMinWidth&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FMinWidth&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(FMaxWidth&nbsp;&gt;&nbsp;0)&nbsp;and&nbsp;(Value&nbsp;&gt;&nbsp;FMaxWidth)&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FMaxWidth&nbsp;:=&nbsp;Value;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Change;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;end;<br>end;
 
接受答案了.
 
顶部