delphiÖ¸Õë¼òµ¥ÈëÃÅ:
Ö¸ÕëÓ÷¨µÄÀý×Ó£º
1 var
2 X, Y: Integer; // X and Y ÕûÊýÀàÐÍ
3 P: ^Integer; // P Ö¸ÏòÕûÊýÀàÐ͵ÄÖ¸Õë
4 begin
5 X :=17; // ¸ø X ¸³Öµ
6 P := @X; // °Ñ xµÄµØÖ·¸³¸øp
7 Y := P^; // È¡³öpËùÖ¸ÏòµÄÊýÖµ¸³¸øy
8 end;
µÚ¶þÐж¨ÒåÁËÁ½¸ö±äÁ¿X,y. µÚÈýÐÐÉùÃ÷ÁËpÊÇÖ¸ÏòÕûÊýÀàÐ͵ÄÖ¸Õë;Òâζ×ÅpÄܹ»Ö¸Ïòx»òÕßyµÄµØÖ·.µÚÎåÐи³¸øxÖµ,µÚÁùÐаÑxµÄµØÖ·¸³¸øp.×î
ºóͨ¹ýpÖ¸ÏòµÄ±äÁ¿¸³Öµ¸øy.´Ëʱ,xºÍyÓÐÏàͬµÄÖµ.
²Ù×÷·û@ÓÃÀ´È¡³ö±äÁ¿µÄµØÖ·,Ò²¿ÉÒÔÈ¡³ö¹ý³ÌºÍº¯ÊýµÄµØÖ·.
¶ø·ûºÅ^ÓÐÁ½¸öÄ¿±ê,
µ±Ëü³öÏÖÔÚÀàÐͶ¨ÒåµÄÇ°ÃæʱÈç ^typename ±íʾָÏòÕâÖÖÀàÐ͵ÄÖ¸Õë;
µ±Ëü³öÏÖÔÚÖ¸Õë±äÁ¿ºó±ßʱ Èç point^ ·µ»ØÖ¸ÕëÖ¸ÏòµÄ±äÁ¿µÄÖµ;
Àí½âÖ¸Õë±È½ÏÈÝÒ×Àí½âÃæÏò¶ÔÏóµÄpascalÓïÑÔ,ÒòΪָÕë¾³£ÔÚÄ»ºó²Ù×÷.ÈκÎÒªÇó¶¯Ì¬·ÖÅä´óµÄÄÚ´æ¿Õ¼äµÄÀàÐÍ¿ÉÒÔÓÃÖ¸ÕëÀàÐÍ.ÀýÈç
,long-string±äÁ¿,ʵ¼ÊÔÚʹÓÃÖ¸Õë½øÐвÙ×÷.ÁíÍâһЩ¸ß¼¶µÄ±à³Ì¼¼ÊõÐèҪʹÓÃÖ¸ÕëÀàÐÍ.
ÓÐʱָÕëÊÇÊÊÓ¦object pascalÑϸñµÄÀàÐÍÏÞÖƵÄΨһ·½·¨.ͬ¹ýÒ»¸öͨÓõÄÖ¸ÕëÀàÐÍ,ͨ¹ýÀàÐÍת»»³É²»Í¬µÄÖ¸ÕëÀàÐÍ,ÈçÏÂÃæµÄÀý×Ó:
type
PInteger
Ïà¹ØÎĵµ£º
¼¼Êõ½»Á÷,DH½²½â. ¹þ¹þ,ÎÒ³ÐÈÏÎÒÊDZêÌâµ³.
×î½ü¿´ÌìÊéÒ¹¶ÁÀïÃæÊǶÔCÓïÑԵĴúÂë·´»ã±à,²»´í,¿ÉϧDelphiûÓÐÕâÑùµÄÊé,ÄÇÎÒÃÇ×Ô¼º¶¯ÊÖ°É.
Ê×ÏȽøÈëForÑ»·ÁË. Function TestFor( a, b: Integer ): Integer ;
Var
I: Integer ;
Begin
Result := a + b ;
For I := 0 To 49 Do
Result := Result + I ......
ÍøÉÏDownµÄÒ»¸öµ¥Ôª.×Ô¼º¸ÄÁËÏÂ. unit utCRC32;
interface
uses
Windows,SysUtils,Classes;
const //Crc32±í
Crc32Tab: Array[0..$FF] of LongInt =
($00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f,
$e963a535, $9e6495a3, $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988,
$0 ......
ÔÚ±àÒëdelphi³ÌÐòʱ»á³öÏÖÔÚЩÌáʾ£¬È«ÊÇEÎĵģ¬ÏÖÔÚ¸ø´ó¼ÒÒ»¸ö¶ÔÕÕ±í£¬¿ÉÒÔ¸üºÃµÄÀí½â´íÎóÌáʾÐÅÏ¢£¡
';' not allowed before 'ELSE' ElSEÇ°²»ÔÊÐíÓГ;”
'' clause not allowed in OLE automation section ÔÚOLE×Ô¶¯Çø¶Î²»ÔÊÐí“”×Ó¾ä
'' is not a type identifier ²»ÊÇÀàÐͱêʶ·û
'' not prev ......
ÓÃDelphi ʵÏÖ´®¿ÚͨѶ£¬³£Óõļ¸ÖÖ·½·¨Îª£ºÊ¹ÓÿؼþÈçMSCOMMºÍSPCOMM£¬Ê¹ÓÃAPIº¯Êý»òÕßÔÚDelphi Öе÷ÓÃÆäËü´®¿ÚͨѶ³ÌÐò¡£ÀûÓÃAPI±àд´®¿ÚͨÐųÌÐò½ÏΪ¸´ÔÓ£¬ÐèÒªÕÆÎÕ´óÁ¿Í¨ÐÅ֪ʶ£¬ÆäÓŵãÊÇ¿ÉʵÏֵŦÄܸüÇ¿´ó£¬Ó¦ÓÃÃæ¸ü¹ã·º£¬¸üÊʺÏÓÚ±àд½ÏΪ¸´ÔÓ µÄµÍ²ã´ÎͨÐųÌÐò¡£Ïà±È½Ï¶øÑÔ£¬ÀûÓÃSPComm¿Ø¼þÔòÏà¶Ô½Ï¼òµ¥£¬¸Ã¿Ø¼þ¾ßÓ ......