Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 5 Êý¾Ý¿âÓ¦ÓÃÖÐODBCÊý¾ÝÔ´µÄ×Ô¶¯¹ÜÀí

ÕªÒªÕªÒª£º±¾ÎÄ·ÖÎöÁËODBCÊý¾ÝÔ´ÉèÖõÄÔ­ÀíÒÔ¼°ODBCÊý¾ÝÔ´ºÍDelphiÊý¾Ý¿â±ðÃûµÄ¹ØÏµ¡£²¢ÔÚ´Ë»ù´¡ÉÏ£¬½éÉÜÁËÔÚDelphi5Êý¾Ý¿âÓ¦ÓóÌÐò°²×°¡¢ÔËÐÐÖУ¬ÈçºÎ±à³ÌʵÏÖODBCÊý¾ÝÔ´ºÍDelphiÊý¾Ý¿â±ðÃûµÄÉèÖá£
¹Ø¼ü×ÖÕªÒª£ºDelphi¡¢Êý¾Ý¿â¡¢ODBC
Ò»¡¢Ç°ÑÔ
DelphiµÄÌØÉ«Ö®Ò»¾ÍÊÇ·½±ã¶øÇ¿´óµÄ¿ª·¢Êý¾Ý¿âµÄÄÜÁ¦£¬Ö»ÒªÇá»÷¼¸ÏÂÊó±ê£¬Ì ......

Delphi Éè¼ÆÄ£Ê½£º¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Delphi´úÂë

1. ³éÏ󹤳§µÄ²úÆ·
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·¹¤³§Ä£Ê½Ö®³éÏ󹤳§ }
{ ³éÏ󹤳§µÄ²úÆ· }
{ ±àÒ빤¾ß£ºDelphi7.0 }
{ E-Mail £ºxshlife@163.com }

unit uPizzaIngredient;

interface

type
TDough = class(TObject)
end;

TThinCrustDough ......

Delphi Éè¼ÆÄ£Ê½£º¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Delphi7´úÂë

1. ²úÆ·Àà
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·¹¤³§Ä£Ê½Ö®¼òµ¥¹¤³§ }
{ ²úÆ·Àà }
{ ±àÒ빤¾ß £ºDelphi7.0 }
{ ÁªÏµ·½Ê½ £ºxshlife@163.com }

unit uProducts;

interface

type
TPizza = class(TObject)
public
procedure Prepare; virt ......

Delphi TIniFile Àà ²Ù×÷iniÅäÖÃÎļþ

Delphi TIniFile Àà ²Ù×÷iniÅäÖÃÎļþ
2007Äê12ÔÂ08ÈÕ ÐÇÆÚÁù 09:56
Ò»¡¢ÓбØÒªÁ˽âINIÎļþµÄ½á¹¹£º
;×¢ÊÍ
[С½ÚÃû]
¹Ø¼ü×Ö=Öµ
...
---- INIÎļþÔÊÐíÓжà¸öС½Ú£¬Ã¿¸öС½ÚÓÖÔÊÐíÓжà¸ö¹Ø¼ü×Ö£¬ “=”ºóÃæÊǸùؼü×ÖµÄÖµ¡£
---- ÖµµÄÀàÐÍÓÐÈýÖÖ£º×Ö·û´®¡¢ÕûÐÍÊýÖµºÍ²¼¶ûÖµ¡£ÆäÖÐ×Ö·û´®´æÖüÔÚINIÎļþÖÐÊ±Ã»Ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ