Delphi Éè¼ÆÄ£Ê½£º¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Delphi7´úÂë
ÊÊÅäÆ÷ģʽµÄÖ÷ÒªÒâͼÊǶÔÏÖÓÐÀàµÄ½Ó¿Ú½øÐÐת»»£¬ÒÔÂú×ãÄ¿±êÀàµÄÐèÇ󡣯ä´Î£¬¿ÉÒÔ¸øÄ¿±êÀàµÄ½Ó¿ÚÌí¼ÓеÄÐÐΪ£¨Ö÷ÒªÖ¸·½·¨£©¡£ÕâÒ»µãÈÝÒ×Óë×°ÊÎģʽ»ìÏý¡£´ÓÒâͼ·½ÃæÀ´¿´£¬×°ÊÎģʽ²»¸Ä±ä£¨Í¨³£Ö¸Ôö¼Ó£©½Ó¿ÚÖеÄÐÐΪ£¨Ö÷ÒªÖ¸·½·¨£©£¬¶øÊÇÔÚÔÓÐÐÐΪ£¨Ö÷ÒªÖ¸·½·¨£©µÄ»ù´¡ÉÏÌí¼ÓÐµĹ¦ÄÜ£»´ÓÀà½á¹¹·½ÃæÀ´¿´£¬×°ÊÎģʽÖеÄ×°ÊÎÕ߼ȼ̳ÐÓÖ×éºÏ±»×°ÊÎÕß¡£ÀàÊÊÅäÆ÷ͬʱ¼Ì³ÐÏÖÓÐÀàºÍÄ¿±êÀ࣬¶ÔÏóÊÊÅäÆ÷¼Ì³ÐÄ¿±êÀà×éºÏÏÖÓÐÀà¡£
1.ÏÖÓÐÀ࣬±»×ª»»½Ó¿ÚÕß
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®ÊÊÅäÆ÷ģʽ }
{ ÏÖÓÐÀà }
{ ±àÒ빤¾ß£ºDelphi7.0 }
{ E-Mail £ºxshlife@163.com }
unit uAdaptee;
interface
type
TTurkey = class(TObject)
public
procedure Gobble; virtual; abstract;
procedure Fly; virtual; abstract;
end;
TWildTurkey = class(TTurkey)
public
procedure Gobble; override;
procedure Fly; override;
end;
implementation
{ TWildTurkey }
procedure TWildTurkey.Fly;
begin
Writeln('I''m flying a short distance.');
end;
procedure TWildTurkey.Gobble;
begin
Writeln('Gobble gobble.');
end;
end.
2.Ä¿±êÀà
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®ÊÊÅäÆ÷ģʽ }
{ Ä¿±êÀà }
{ ±àÒ빤¾ß£ºDelphi7.0 }
{ E-Mail £ºxshlife@163.com }
unit uTarget;
interface
type
TDuck = class(TObject)
public
procedure Quack; virtual; abstract;
procedure Fly; virtual; abstract;
end;
TMallarDuck = class(TDuck)
public
procedure Quack; override;
procedure Fly; override;
end;
implementation
{ TMallarDuck }
procedure TMallarDuck.Fly;
begin
Writeln('I''m flying.');
end;
procedure TMallarDuck.Quack;
begin
Writeln('Quack.');
end;
end.
3.ÊÊÅäÆ÷
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®ÊÊÅäÆ÷ģʽ }
{ ÊÊÅäÆ÷£¬×ª»»ÏÖÓÐÀàµÄ½Ó¿Ú }
{ ±àÒ빤¾ß£ºDelphi7.0 }
{ E-Mail £ºxshlife@163.com }
unit uAdapter;
interface
uses
uTarget, uAdap
Ïà¹ØÎĵµ£º
µÚÒ»Õ DELPHIµÄÔ×ÓÊÀ½ç
µÚ¶þÕ DELPHIÓëWIN32ʱ¿Õ
µÚÈýÕ ¶àÏß³Ì
µÚËÄÕÂ ½Ó¿Ú
µÚÎåÕÂ °ü
µÚÁùՠʼþÓëÏûÏ¢
µÚÆßÕ ×éÖ¯ÄãµÄÄ£¿é
µÚ°ËÕ ̽Ë÷Êý¾Ý¿â
µÚ¾ÅÕ ¶à²ãÌåϵ½á¹¹
µÚʮՠ²Ù×÷½çÃæÓë²Ù×÷Âß¼
µÚʮһÕÂ ÃæÏò¶ÔÏóÊý¾Ý¿â»ù´¡
¿Õ ......
ÕªÒªÕªÒª£º±¾ÎÄ·ÖÎöÁËODBCÊý¾ÝÔ´ÉèÖõÄÔÀíÒÔ¼°ODBCÊý¾ÝÔ´ºÍDelphiÊý¾Ý¿â±ðÃûµÄ¹ØÏµ¡£²¢ÔÚ´Ë»ù´¡ÉÏ£¬½éÉÜÁËÔÚDelphi5Êý¾Ý¿âÓ¦ÓóÌÐò°²×°¡¢ÔËÐÐÖУ¬ÈçºÎ±à³ÌʵÏÖODBCÊý¾ÝÔ´ºÍDelphiÊý¾Ý¿â±ðÃûµÄÉèÖá£
¹Ø¼ü×ÖÕªÒª£ºDelphi¡¢Êý¾Ý¿â¡¢ODBC
Ò»¡¢Ç°ÑÔ
DelphiµÄÌØÉ«Ö®Ò»¾ÍÊÇ·½±ã¶øÇ¿´óµÄ¿ª·¢Êý¾Ý¿âµÄÄÜÁ¦£¬Ö»ÒªÇá»÷¼¸ÏÂÊó±ê£¬Ì ......
1. ³éÏ󹤳§µÄ²úÆ·
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·¹¤³§Ä£Ê½Ö®³éÏ󹤳§ }
{ ³éÏ󹤳§µÄ²úÆ· }
{ ±àÒ빤¾ß£ºDelphi7.0 }
{ E-Mail £ºxshlife@163.com }
unit uPizzaIngredient;
interface
type
TDough = class(TObject)
end;
TThinCrustDough ......
1. ²úÆ·Àà
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·¹¤³§Ä£Ê½Ö®¼òµ¥¹¤³§ }
{ ²úÆ·Àà }
{ ±àÒ빤¾ß £ºDelphi7.0 }
{ ÁªÏµ·½Ê½ £ºxshlife@163.com }
unit uProducts;
interface
type
TPizza = class(TObject)
public
procedure Prepare; virt ......
Delphi TIniFile Àà ²Ù×÷iniÅäÖÃÎļþ
2007Äê12ÔÂ08ÈÕ ÐÇÆÚÁù 09:56
Ò»¡¢ÓбØÒªÁ˽âINIÎļþµÄ½á¹¹£º
;×¢ÊÍ
[С½ÚÃû]
¹Ø¼ü×Ö=Öµ
...
---- INIÎļþÔÊÐíÓжà¸öС½Ú£¬Ã¿¸öС½ÚÓÖÔÊÐíÓжà¸ö¹Ø¼ü×Ö£¬ “=”ºóÃæÊǸùؼü×ÖµÄÖµ¡£
---- ÖµµÄÀàÐÍÓÐÈýÖÖ£º×Ö·û´®¡¢ÕûÐÍÊýÖµºÍ²¼¶ûÖµ¡£ÆäÖÐ×Ö·û´®´æÖüÔÚINIÎļþÖÐÊ±Ã»Ó ......