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

来源：互联网发布：九天智能建站源码编辑：程序博客网时间：2024/06/05 09:04

��淶��Ŀ�ģ��Լ��Ĵ��һ��ͳһ��׼��ۣ��ǿ�ɶ��ԣ��ԣ��ά��Ա��淶��ԭ��Ʒ�ӳ��,��ʽ��ӳ�ṹ

1��Ԫ��2��3��4��

�ο��borland�ٷ�object pascal��ָ�� delphi5��Աָ�ϱ��׼

1��Ԫ��

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[n] := ((i 1) * v0[n] j * v1[n] (k - 1) * v2[n]) / 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��ͷ

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

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