您的位置:首页 > 编程语言 > Delphi

���봴����ʽ�淶 1.0 (for delphi)

2008-04-30 08:53 169 查看
���淶��Ŀ�ģ����Լ��Ĵ���һ��ͳһ����׼����ۣ���ǿ�ɶ��ԣ�������ԣ���ά���Ա��淶��ԭ�����Ʒ�ӳ����,��ʽ��ӳ�ṹ
1����Ԫ���2���������3�������4����������
�ο���borland�ٷ�object pascal���ָ�� delphi5����Աָ�ϱ����׼
1����Ԫ���
{*******************************************************}{ }{ ��Ŀ���� }{ }{ ��Ȩ���� (c) 2000,2001 ��˾���� }{ }{*******************************************************}
unit unitname;{*******************************************************��Ŀ:ģ��:����:�汾:����:����:����:todo:*******************************************************}
interface
uses ----,----,----,----,----,----,----,----,----,----,----, ----,----, ----,----,----,----;
const --------------------; --------------------; --------------------; type --------------------; --------------------; --------------------; --------------------; --------------------; --------------------;
var --------------------; --------------------; --------------------;
implementation
uses ----,----,----,----;
{$r *.res}{$r *.dfm}
--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;--------------------------------;
end.
����

2���������0��ע����հ� ��{ } ���� // ����ע�ͣ���������Ŀ��˵�������ע�� ���� ����Ȩ�飬��֮�䣬����֮��--�����У� �����ڲ��飨һ�У� �ո� ��������ǿ������ ���� �������ո�
1�������� ������
const ----- = ----; ----- = ----; ----- = ----; ----- = ----;
��չǰ׺�� ����c_---���������ÿ��������һ��ǰ׺const
{ ����1 } c_--- = ----; { ���� } c_--- = ----; { ���� } c_--- = ----; { ���� } c_--- = ----; { ���� } { ����2 } ----- = ----; ----- = ----; ----- = ----; ----- = ----;
��Դ�ַ���,���ڱ���������
resourcestring
const s_--- = '----'; s_--- = '----'; s_--- = '----';
���ӣ�
cm_base = $b000; cm_activate = cm_base 0; cm_deactivate = cm_base 1; cm_gotfocus = cm_base 2; cm_lostfocus = cm_base 3; numpaletteentries = 20; boxpoints : array[0..5, 0..2] of glfloat = ( (-1, 0, 0), ( 0, 1, 0), ( 1, 0, 0), ( 0, -1, 0), ( 0, 0, 1), ( 0, 0, -1) );
{ variant type codes (wtypes.h) }
varempty = $0000; { vt_empty } varnull = $0001; { vt_null } varsmallint = $0002; { vt_i2 } gifversions : array[gv87a..gv89a] of tgifversionrec = ('87a', '89a');

2�������� ��������-->���ṩ������������� t---- = --------- ��������-->��״̬���ṩ�����ʵ�� t---- = class(----) private -------- -------- protected -------- -------- public -------- -------- published -------- -------- end;

����ĸ����
private 1���������ݷ���private ������f��ͷ 2�������¼����Զ�Ӧ�ķ���ָ�����private ������f��ͷ 3�����Ե�get��set��������private ��-->��׼�����̳� 4����Ӧ��Ϣ�ķ�������private ��protected 1����������õĵ����ܱ������õķ��������� 2�����������صķ��� virsual; virsual; abstractpublic 1�������������� 2���������õķ��� 3���������õ�����published 1��������object inspector�﹩���ʱ�õ����� 2��������object inspector�﹩���ʱ�õ��¼���Ӧ
���ӣ�
tgifversion = (gvunknown, gv87a, gv89a); tgifversionrec = array[0..2] of char; pinterfacetable = ^tinterfacetable; tinterfacetable = packed record entrycount: integer; entries: array[0..9999] of tinterfaceentry;
{ forword declairation } tgifimage = class; tgifsubimage = class; {--------------------------- tgifitem ---------------------------} tgifitem = class(tpersistent) private fgifimage: tgifimage; ............. end;
3�������� ����ȫ�ֱ��� ע�ⲻҪ��ȱʡ�������������ڵ������������� var -----------: -------; -----------: -------; ���ӣ� gifdelayexp: integer = 10; { delay multiplier in ms.} gifdelayexp: integer = 12;
4��ʵ���� {--------------------------------------------------------- ����----------------------------------------------------------}
{ ������Ŀ�� }procedure ----------------------------begin --------; --------;end;
{ ������Ŀ�� }function -----------------------------begin --------; --------;end;
5�������뺯�� ���� ��ʽ
����
3�������1������� -------;2��������� begin -----; -----; end;
3����ֵ��� -- ��= -------�� -- ��= ��-- --��* ��-- / --����
4���ֲ�����var ---: ---; ---: ---;�����߼��ϲ��еı����飺var ---�� ---�� ---: ---;
5���������� --- = array [*..*] of ---;
6��if ��� if (--------) then -------------;
if (--------) then begin -------------; -------------; -------------; end;
if (--------) then -------------; else -------------;
if (--------) then begin -------------; -------------; -------------; end else -------------;
if (--------) then begin -------------; -------------; -------------; end else begin -------------; -------------; -------------; end;
if (--------) then ------------- else if (--------) then -------------;
7��for ѭ��
for i := -------- to -------- do -------------;
for i := -------- to -------- do begin -------------; -------------; -------------; end;
for i := -------- to -------- do if (--------) then begin -------------; -------------; -------------; end;
for i := -------- to -------- do with -------- then begin -------------; -------------; -------------; end;
8��while ѭ��
while ------ do begin -------------; -------------; -------------; end;
9��repeat ѭ�� repeat -------------; -------------; -------------; until ------;
10��case ���
case -------- of -------- : -------------; -------- : -------------; -------- : -------------; else -------------; end;
case -------- of -------- : -----------------------------------------------------------------; -------- : -----------------------------------------------------------------; -------- : -----------------------------------------------------------------; else -----------------------------------------------------------------; end;
case -------- of -------- : begin --------------------------; --------------------------; --------------------------; end; -------- : begin --------------------------; --------------------------; --------------------------; end; -------- : begin --------------------------; --------------------------; --------------------------; end else begin -------------; -------------; -------------; end;
end;
11��with ��� with -------- do -------------;
with -------- do begin -------------; -------------; -------------; end;
12��try ��� try -------------; -------------; -------------; finally -------------; -------------; -------------; end;
try try -------------; -------------; -------------; except -------------; -------------; end; finally -------------; -------------; -------------; end;
13������ ����:�����ǰ��Ҫ�пո� w1
:= ((i 1) * v0
j * v1
(k - 1) * v2
) / depth;
-- = -- -- >= -- -- <= -- -- > -- -- < -- -- <> -- -- := --; ��ֵ --: ----; ����
ͬһ�����Һ����߼��ϲ����еı��� 20���ַ����ı����� private ------- : -------; ------- : -------; ------- : -------; ------- : -------; ------- : -------; var ------- : -------; ------- : -------; ------- : -------; ------- : -------; ------- : -------; 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 stx:=cnx; sty:=cny; end; end;
case (dithermode) of dmnearest: ditherer := tditherengine.create(bitmap.width, colorlookup); dmfloydsteinberg: ditherer := tfloydsteinbergditherer.create(bitmap.width, colorlookup); dmstucki: ditherer := tstuckiditherer.create(bitmap.width, colorlookup); dmsierra: ditherer := tsierraditherer.create(bitmap.width, colorlookup); dmjajuni: ditherer := tjajuniditherer.create(bitmap.width, colorlookup); dmstevearche: ditherer := tstevearcheditherer.create(bitmap.width, colorlookup); dmburkes: ditherer := tburkesditherer.create(bitmap.width, colorlookup); else exit;end;
����
4���������� 1���ļ�����: uģ�����ƣ�����֪�� 2���ؼ�����: ����_�ؼ���д������֪�� 3������ : ����������д�����������ʣ�����֪�� 4����������̣�����������д�������ö������飻����֪�� 5�������Ĺ��� ������t��ͷ (type֮��) ���˽����������f��ͷ(field֮��) �����ݵĴ�ȡ�����ֱ���set��get��ͷ �¼�������on��ͷ
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: