Delphi ÀàµÄѧϰ
Ò»¡¢ÀàÓë¶ÔÏó
1¡¢ Àà(Class)ÊÇÓû§¶¨ÒåµÄÊý¾ÝÀàÐÍ
2¡¢ ¶ÔÏó£¨Object£©ÊÇÀà(Class)µÄÒ»¸öʵÀý£¬»òÓÉÀඨÒåÊý¾ÝÀàÐ͵ÄÒ»¸ö±äÁ¿;
3¡¢ ÀàÓÐÒ»ÖÖ״̬£¨ÄÚ²¿Êý¾Ý£©£¬²Ù×÷£¨ÐÐΪ»ò·½·¨£©£¬ÊôÐÔ;
4¡¢ ¶ÔÏóÊÇÒ»¸öʵÌ壬³ÌÐòÔËÐÐʱ»áΪÆäÄÚ²¿±íÏÖ·ÖÅäһЩÄÚ´æ;
5¡¢ ÀàÓë¶ÔÏóÖ®¼äµÄ¹ØÏµºÍ±äÁ¿ÓëÀàÐÍÖ®¼äÒ»ÑùµÄ£»
6¡¢´´½¨Ò»¸öÀà ÀàÐÍÃû(class name) =class
³ÉÔ±
·½·¨
ÊôÐÔ
7¡¢¶ÔÏóÓÃÍêÖ®ºóÓ¦¸ÃÊÍ·ÅÄÚ´æ;
¶þ¡¢´´½¨Ò»¸öÀà
1¡¢Ò»¸öÀàµÄ±äÁ¿²»»áΪ¶ÔÏóÌṩÄڴ棬ֻÊÇÔÚÄÚ´æÖÐÌṩһ¸öÒýÓûòÖ¸Õë;
ʵÀý1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TMyClass = class //´´½¨Ò»¸öTMyClassÀà
name : String;
age : Integer;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
MyCls : TMyClass; //ÉùÃ÷Ò»¸ö¶ÔÏó
begin
MyCls :=TMyClass.Create; //·ÖÅäÄÚ´æ»ò³õʼ»¯ ¹¹ÔìÒ»¸öʵÀý£¬¶ÔÏóʵÖÊ»¯;
MyCls.name :='²âÊÔ';
MyCls.age :=2010;
ShowMessage(MyCls.name); //ÏÔʾ'²âÊÔ '
MyCls.Free; //ÊÍ·ÅÀàµÄÕ¼ÓõÄÄÚ´æ;
end;
end.
Èý¡¢ÀàµÄ·½·¨1¡¢ ÀàµÄ·½·¨Ò²¾ÍÊǹý³Ì»òº¯Êý
2¡¢ ÔÚÀàµÄ¶¨ÒåÖУ¬·½·¨Ö»Äܱ»ÉùÃ÷,È»ºóÔÚ±¾µ¥ÔªÖж¨Òå
3¡¢ Ctrl+Shit+CµÄÔËÓã¬ÔÚÀàÖе±·½·¨±»ÉùÃ÷ºó¿ÉÒÔʹÓÃCtrl+Shit+C×éºÏ¼ü£¬delphi»á×Ô¶¯ÉùÃ÷ÀàµÄ·½·¨¶¨Òå
Ïà¹ØÎĵµ£º
»¥³âÁ¿ÊÇϵͳÄں˶ÔÏó£¬ËÓµÓоÍËÖ´ÐС£ËüÓëÁÙ½çÇø¹¤×÷ºÜÀàËÆ¡£²»Í¬´¦ÔÚÓÚ£º1¡¢»¥³âÁ¿¿ÉÒÔ¿ç½ø³Ì±ß½çͬ²½Ï̡߳£2¡¢¿ÉÒÔ¸ø»¥³âÁ¿È¡¸öÃû×Ö£¬Í¨¹ýÒýÓû¥³âÁ¿µÄÃû×ÖÀ´Ê¹ÓÃÒ»¸öÒÑÖªµÄ»¥³âÁ¿¶ÔÏó¡£
ʹÓû¥³âÁ¿Ö®ÀàµÄ¶ÔÏóÐèÒª·´¸´µ÷ÓÃϵͳÄںˣ¬ÆÚ¼äÐèÒª½øÐнø³ÌÉÏÏÂÎÄת»»ºÍ¿ØÖƼ¶±ðת»»£¬´ó¸ÅÐèÒªºÄ· ......
VCL¶ÔÏó²»ÊÇḬ̈߳²È«µÄ£¬¶øÇÒËüÃǵÄÊôÐԺͷ½·¨±ØÐëÒª´ÓVCLÖ÷Ïß³ÌÖнøÐзÃÎÊ»ò±»Ö´ÐУ¬µ«ÓÐÁ½ÖÖVCL¶ÔÏóÊÇÀýÍâµÄÇé¿ö£¬ËüÃÇÊÇḬ̈߳²È«µÄ¡£Ò»ÖÖÊÇÈκÎͼÐζÔÏó£¬ÁíÒ»ÖÖÊÇTThreadList¡£
ÕâÒâζ×Ų»±Ø·ÇµÃÔÚÖ÷VCLÏß³ÌÖвÅÄÜÉèÖÃÒ»¸ö»²¼µÄ»±ÊÑÕÉ«£¬»ò»Ë¢ÀàÐÍ£¬¿ÉÒÔÔÚÁíÒ»¸öÏ̵߳Ļ·¾³ÖÐÍê³ÉÒ»µã¡£¶Ô ......
¹ØÓÚ½çÃæÃÀ»¯·½Ã棬һֱÊÇÒ»¸öÄÔ¿ÇÌÛµÄÎÊÌ⣡ÒÔǰһֱ͵ÀÁ£¬Ê¹ÓõÄÈý·½¿Ø¼þ£¡µ«ÊÇÔÚʹÓÃÁËÒ»¶Îʱ¼äÖ®ºó£¬¶¼»ò¶à»òÉÙµÄÓÐЩÎÊÌ⣡²»ÊÇÎÒ˵Èý·½¿Ø¼þÈç
ºÎÈçºÎµÄ²»ºÃ£¡Ö»ÊÇÈý·½¿Ø¼þ¶àÊÇÅÓ´óµÄÒ»¸öÖ«Ì壬Ҫ¼æ¹ËµÄÓû§ÈºÌåºÜ¶à£¬ËùÒÔͬʱËüÒª¿¼ÂǵÄÎÊÌâÒ²Ôö¼ÓÁ˺ܶ࣬Ȼ¶øÒ»¸ö³ÌÐò³öÏÖBugÊÇÔÚËùÄÑÃâµÄ ......
DelphiµÄVCL¿ò¼ÜÔÚ´´½¨Ó¦ÓÃʱTApplicationÊÇÒ»¸ö×Ô¶¯´´½¨µÄÒþ²Ø´°¿Ú£¬ÆäËü´´½¨µÄ´°¿ÚÊÇ×Ô¶¯ÒԸô°¿ÚΪ´°¿Ú£¬Õâ¾Íµ¼Ö´´Ê¼µÄÖ÷´°¿ÚÔÚÈÎÎñÀ¸µÄϵͳ²Ëµ¥Ö»ÓÐÈýÏֻҪÔÚÖ÷´°¿ÚµÄCreateʼþÖн«ÏµÍ³²Ëµ¥ÓÃApplicationµÄϵͳ²Ëµ¥Ìæ»»£¬²¢½«SysCommandÏûϢת·¢µ½Ö÷´°¿Ú¾ÍÕý³£ÁË¡£
unit Unit1;
interface
uses
Windows ......
ȫͼ
±£´æÊý¾ÝΪtxtÎĵµ
±£´æÎªÍ¼Ïñ
´òÓ¡——pdf´òÓ¡»ú
ÏÂÒ»²½ ÓÐʱ¼äµÄ»° ʵÏÖ ±êÇ©Ò³Ãæ USBת´®¿Ú×Ô¶¯Ê¶±ðÉ豸 //ÖØÐ»ص½STM32ÉÏÃæ-02-26 21:35:21
......