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
Ïà¹ØÎĵµ£º
ÕªÒªÕªÒª£º±¾ÎÄ·ÖÎöÁËODBCÊý¾ÝÔ´ÉèÖõÄÔÀíÒÔ¼°ODBCÊý¾ÝÔ´ºÍDelphiÊý¾Ý¿â±ðÃûµÄ¹ØÏµ¡£²¢ÔÚ´Ë»ù´¡ÉÏ£¬½éÉÜÁËÔÚDelphi5Êý¾Ý¿âÓ¦ÓóÌÐò°²×°¡¢ÔËÐÐÖУ¬ÈçºÎ±à³ÌʵÏÖODBCÊý¾ÝÔ´ºÍDelphiÊý¾Ý¿â±ðÃûµÄÉèÖá£
¹Ø¼ü×ÖÕªÒª£ºDelphi¡¢Êý¾Ý¿â¡¢ODBC
Ò»¡¢Ç°ÑÔ
DelphiµÄÌØÉ«Ö®Ò»¾ÍÊÇ·½±ã¶øÇ¿´óµÄ¿ª·¢Êý¾Ý¿âµÄÄÜÁ¦£¬Ö»ÒªÇá»÷¼¸ÏÂÊó±ê£¬Ì ......
ÉèÖÃͼÏñ¹Ø¼üÑÕÉ«£¬Ê¹Í¼ÏñµÄijÖÖ»òij¸ö·¶Î§µÄÑÕÉ«³ÉΪ͸Ã÷É«£¬ÊÇͼƬºÏ³É¡¢¶¯»ÏÔʾÖо³£ÓõÄͼÏñ´¦ÀíÊֶΡ£ÏÂÃæÊÇʵÏÖ´úÂ룺
¹ý³Ì¶¨Ò壺
// ÉèÖÃÉ«¼ü£¨Í¸Ã÷·¶Î§£©¡£colorLow µÍÉ«¼üÖµ; colorHigh ¸ßÉ«¼üÖµ
// µ±ÏñËØA¡¢R¡¢G¡¢Bֵͬʱ´óÓÚµÈÓÚcolorLowºÍСÓÚµÈÓÚcolorHighʱΪ͸Ã÷É«
procedu ......
µ±È»Óû§ÒªÏëͨ¹ýÊý¾Ýä¯ÀÀ²¿¼þ±à¼ÐÞ¸ÄÊý¾Ý¿â±íÖеļǼ×Ö¶Îʱ£¬»¹ÒªÊܵ½ÆäËüÒòËØµÄÖÆÔ¼¡£³ýÁËÊý¾Ýä¯ÀÀ²¿¼þ±¾ÉíµÄReadOnlyÊôÐÔÉèÖÃΪFalseÍ⣬»¹ÒªÉèÖÃÆäÏàÓ¦µÄ×ֶβ¿¼þºÍÊý¾Ý¼¯²¿¼þµÄCanModifyÊôÐÔTrueÐÔ£»ÉèÖÃTDataSource²¿¼þµÄAutoEditÊôÐÔΪTrue£¬Èç¹ûÊý¾Ý¿â±íÊÇSQLÊý¾Ý¿â·þÎñÆ÷ÖеÄÊý¾ ......
1. ²úÆ·Àà
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·¹¤³§Ä£Ê½Ö®¼òµ¥¹¤³§ }
{ ²úÆ·Àà }
{ ±àÒ빤¾ß £ºDelphi7.0 }
{ ÁªÏµ·½Ê½ £ºxshlife@163.com }
unit uProducts;
interface
type
TPizza = class(TObject)
public
procedure Prepare; virt ......
ÔÚÒ»¸öµ¥ÔªÖÐÉùÃ÷µÄ¶à¸öÀ໥ΪÓÑÔªÀà
type
TMyClass = class
GUID: string;
Name: string;
bSex: Boolean;
Tel : string;
end;
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedu ......