|
nbsp; : -------;
------- : -------;
------- : -------;
------- : -------;
function ---------------------(--: ----; --: ----; --: ----): ----; 同一类型且含义逻辑上并列的变量 如 error0,error1,error2 ; r,g,b
private
------- ,
------- ,
------- ,
------- ,
------- : -------
var
------- ,
------- ,
------- ,
------- ,
------- : -------
function ---------------------(--, --, --: ----; var --, --, --: ----): ----; t------- = class(-------)
private
f-------: -------;
f-------: -------;
f-------: -------;
function --------------: -------;
procedure --------------;
protected
function --------------: -------;
procedure --------------;
function --------------: -------; virtual; abstract;
public
constructor create(-------: -------); override; {if need to do something after create}
destructor destroy; override; {if need to do something before destroy}
function --------------: -------;
procedure --------------;
property -------: ------- read f-------;
published end; 14、形式反映结构
例子：
tetindex : array[0..3] of tinteger3v =
( (0, 1, 3),
(2, 1, 0),
(3, 2, 0),
(1, 2, 3) );
cursors: array[0..4] of tidentmapentry = (
(value: crdefault; name: ''''crdefault''''),
(value: crarrow; name: ''''crarrow''''),
(value: crcross; name: ''''crcross''''),
(value: cribeam; name: ''''cribeam'''') ); if (dwflags and pfd_draw_to_window) = 0)
or( (dwflags and pfd_support_opengl) = 0)
or( (dwflags and pfd_doublebuffer) = 0)
or (ipixeltype <> pfd_type_rgba)
or (ccolorbits < 16)
)
) then
raise exception.create(''''inappropriate pixel format chosen.''''); glbegin(shadetype);
glnormal3fv(@n0);
glvertex3fv(@dodec[a, 0]);
glvertex3fv(@dodec[b, 0]);
glvertex3fv(@dodec[c, 0]);
glvertex3fv(@dodec[d, 0]);
glvertex3fv(@dodec[e, 0]);
glend(); dodec[0, 0] := -alpha; dodec[0, 1] := 0; dodec[0, 2] := beta;
dodec[1, 0] := alpha; dodec[1, 1] := 0; dodec[1, 2] := beta;
dodec[2, 0] := -1; dodec[2, 1] := -1; dodec[2, 2] := -1; procedure glutwiretorus(
innerradius : gldouble; //---------
outerradius : gldouble; //---------
nsides : glint; //---------
rings : glint ); //---------
case frundirection of
rdrighttoleft : begin
sty:=cny;
stx:=width - currentstep;
end;
rdlefttoright : begin
sty:=cny;
stx:=-currentstep;
end;
rdbottomtotop : begin
stx:=cnx;
sty:=height - currentstep;
end;
rdtoptobottom : begin
stx:=cnx;
sty:=currentstep - rtheight;
end;
else begin
&nb 上一页 [1] [2] [3] [4] 下一页
[系统软件]InstallShield Express for delphi制作安装程序定… [系统软件](转帖) 忘记登录密码的解决方案 for XP/2003/2000
[系统软件]交叉编译sshd for IXP425 ARM Platform by MVL 3… [常用软件]Firefox 1.0 全方位试用
[常用软件]完全免费的国产语音ICQ软件----V2 Communicator 1… [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
[Delphi程序]一个超链接Image控件！（For D3,D4,D5,D6)源代码 [Delphi程序]Five of the best tools for Delphi
[Delphi程序]《关于VisiBroker For Delphi的使用》(3) [Delphi程序]《关于VisiBroker For Delphi的使用》(2)
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
