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 ......
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(dir) +';Extended Properties=dBase 5.0;Persist Security Info=False;';
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(dir)+';Extended Pro ......
ÔÚ±àÖÆÁËÒ»¸öÓ¦ÓóÌÐòºóµÄά»¤½×¶Î£¬ÎÒÃÇ»áÃæÁÙ¸øÓ¦ÓóÌÐòÉý¼¶µÄ¹¤×÷.ÎÞÒÉ£¬ÊÖ¹¤Éý¼¶µÄ¹¤×÷ÊÇÊ®·Ö·±ËöµÄ£¬Äã¿ÉÄÜ»áÐèÒªµ½Óû§µÄ»úÆ÷ÉÏÈ¥¸üÐÂÎļþ.¿ÉÊÇ£¬Èç¹ûÄܱàÒ»¸ö×Ô¶¯Éý¼¶³ÌÐò£¬·ÅÔÚÍøÂçÉÏ£¬ÈÃÓû§ÏÂÔØ£¬Ö»ÐèÖ´ÐÐһϾÍÍê³ÉÉý¼¶¹¤×÷£¬²»ÊǺܷ½±ãÂð£¿Æäʵ£¬ÓÃDelphi¿ÉÒԺܷ½±ãµØ±àÖÆ³öÕâÑùÒ»¸öµÄ³ÌÐò.
ÒÔÏÂÊÇÎÒÃǵÄÀý×Ó£ ......
һЩ»ù´¡µÄÎÊÌâÎÒ²»ÔÙ׸ÊöÁË£¬²éÔİïÖúÎĵµ£¨Object Pascal SDL Doc.chm£©ÏÔÈ»±ÈÔÚÕâ¿´ÎÒºú³¶ºÏÊʵöࡣÄÇЩ»ÏñËØ£¬»ñÈ¡ÏñËØÐÅÏ¢£¬ÏÔʾBMPÎļþ¶àÊýʱºòÖ»Òª°ÑÄÇЩ´úÂë¸´ÖÆ¹ýÀ´»ù±¾¾ÍÄܹ¤×÷¡£ÏÂÃæËµµÄÊÇÔõÑùÏÔʾÖÐÎÄ¡£
ÆäʵSDL¼ÓÉÏttfÖ§³Öʱ£¨ÐèÒª½«¶ÔÓ¦µÄdllÎļþÌí¼Óµ½¹¤³ÌĿ¼ÀÊÇÍêÈ«¿ÉÒÔÏÔʾÖÐÎĵ쬼òÌåºÍ·±Ì嶼ûΠ......
¼¼Êõ½»Á÷,DH½²½â. ¼ÇµÃºÜÔç֮ǰÎÒ¾Í˵¹ý,Êý×éºÍ½á¹¹ÌåÔÚÄÚ´æÖÐÆäʵһÑùµÄ,ËûÃǶ¼ÊÇÁ¬Ðø·Ö²¼µÄ.
ÀýÈç: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
ÕâÁ½¸ö¶¼Õ¼12×Ö½Ú,¶øÇÒTMyStruct.A¾ÍÊÇT3IntArray[0].
¶øÎÒÃÇÖªµÀÔÚ·ÃÎÊÊý×éÖÐij¸öÔªËØµÄʱºò,Ö»ÊÇÔÚµ ......