Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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µÄÔ­×ÓÊÀ½ç
µÚ¶þÕ  DELPHIÓëWIN32ʱ¿Õ
µÚÈýÕ  ¶àÏß³Ì
µÚËÄÕ  ½Ó¿Ú
µÚÎåÕ  °ü
µÚÁùÕ  ʼþÓëÏûÏ¢
µÚÆßÕ  ×éÖ¯ÄãµÄÄ£¿é
µÚ°ËÕ  ̽Ë÷Êý¾Ý¿â
µÚ¾ÅÕ  ¶à²ãÌåϵ½á¹¹
µÚʮՠ ²Ù×÷½çÃæÓë²Ù×÷Âß¼­
µÚʮһÕ  ÃæÏò¶ÔÏóÊý¾Ý¿â»ù´¡
 ¿Õ ......

Îò͸delphi µÚ¾ÅÕ ¶à²ãÌåϵ½á¹¹

µÚÒ»Õ  DELPHIµÄÔ­×ÓÊÀ½ç
µÚ¶þÕ  DELPHIÓëWIN32ʱ¿Õ
µÚÈýÕ  ¶àÏß³Ì
µÚËÄÕ  ½Ó¿Ú
µÚÎåÕ  °ü
µÚÁùÕ  ʼþÓëÏûÏ¢
µÚÆßÕ  ×éÖ¯ÄãµÄÄ£¿é
µÚ°ËÕ  ̽Ë÷Êý¾Ý¿â
µÚ¾ÅÕ  ¶à²ãÌåϵ½á¹¹
µÚʮՠ ²Ù×÷½çÃæÓë²Ù×÷Âß¼­
µÚʮһÕ  ÃæÏò¶ÔÏóÊý¾Ý¿â»ù´¡
 ¿Õ ......

Îò͸delphi µÚʮһÕÂ ÃæÏò¶ÔÏóÊý¾Ý¿â»ù´¡

µÚÒ»Õ  DELPHIµÄÔ­×ÓÊÀ½ç
µÚ¶þÕ  DELPHIÓëWIN32ʱ¿Õ
µÚÈýÕ  ¶àÏß³Ì
µÚËÄÕ  ½Ó¿Ú
µÚÎåÕ  °ü
µÚÁùÕ  ʼþÓëÏûÏ¢
µÚÆßÕ  ×éÖ¯ÄãµÄÄ£¿é
µÚ°ËÕ  ̽Ë÷Êý¾Ý¿â
µÚ¾ÅÕ  ¶à²ãÌåϵ½á¹¹
µÚʮՠ ²Ù×÷½çÃæÓë²Ù×÷Âß¼­
µÚʮһÕ  ÃæÏò¶ÔÏóÊý¾Ý¿â»ù´¡
µÚÊ®Ò»Õ ......

DelphiͼÏñ´¦Àí

    ÉèÖÃͼÏñ¹Ø¼üÑÕÉ«£¬Ê¹Í¼ÏñµÄijÖÖ»òij¸ö·¶Î§µÄÑÕÉ«³ÉΪ͸Ã÷É«£¬ÊÇͼƬºÏ³É¡¢¶¯»­ÏÔʾÖо­³£ÓõÄͼÏñ´¦ÀíÊֶΡ£ÏÂÃæÊÇʵÏÖ´úÂ룺
¹ý³Ì¶¨Ò壺
// ÉèÖÃÉ«¼ü£¨Í¸Ã÷·¶Î§£©¡£colorLow µÍÉ«¼üÖµ; colorHigh ¸ßÉ«¼üÖµ
// µ±ÏñËØA¡¢R¡¢G¡¢Bֵͬʱ´óÓÚµÈÓÚcolorLowºÍСÓÚµÈÓÚcolorHighʱΪ͸Ã÷É«
procedu ......

DELPHIÉî¶È̽Ë÷ £¨µÚ2°æ£©PDFµç×ÓÊé

 ÍƼö¸ø´ó¼Ò[url=DELPHIÉî¶È̽Ë÷ £¨µÚ2°æ£©PDFµç×ÓÊé][/url]
ÒòΪÐèҪǰ¼¸ÌìÔÚÍøÉÏËÑËѹýÕâ±¾ÊéÊ飬¿ÉûÓУ¬Ô´Âëµ¹ÊÇÓУ¬½ñÌì´ò¿ª¾­³£È¥µÄÍøÕ¾£¬¾ÓÈ»·¢ÏÖÌṩÏÂÔØÁË£¬Õâ¸öÍøÕ¾×Ô¼º²î²»¶àÿÌì¶¼Òª´ò¿ª¿´¿´£¬Õ⼸ÌìæºýÍ¿ÁË£¬¾ÓȻûÓп´µ½£¬ÔÚÕâÍÆ¼ö¸ø´ó¼Ò£¬ÄÜÏÂÔØµÄ£¬ËٶȺܿ졣
[url=http://www.delphifans.com/Soft ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ