Delphi 2010ÏÂÇ¿ÖÆÀàÐÍת»»µÄ´íÎó
ÏÂÃæµÄ´úÂëÔÚDelphi 7Àï¶¼ºÃºÃµÄ£¬µ«Delphi 2010ϾÍÊDZ¨´í: [DCC Error] sgr_def.pas(720): E2089 Invalid typecast ---------- Tsp_ShiftKeys=set of (ssShift, ssAlt, ssCtrl); fZoomShift: TShiftState; procedure Tsp_XYPlot.SetZoomShift(const V:Tsp_ShiftKeys); begin fZoomShift:=[ssLeft]+TShiftState(V); end; D2010µÄÇ¿ÖÆ×ª»»ÓÐʲôеÄÏÞÖÆÂð£¿
¸ÄÕâÑùÊÔÊÔ£º Tsp_ShiftKeys=set of (ssShift, ssAlt, ssCtrl); fZoomShift: TShiftState; procedure Tsp_XYPlot.SetZoomShift(const V:Tsp_ShiftKeys); begin fZoomShift:=[ssLeft]+TShiftState(Ord(V)); end; ²»¹ýÄãÁ½¸öµØ·½¶¼ÓÃTShiftState£¬ÎªÊ²Ã´²»Ö±½ÓÓÃTShiftState¶øÒª×Ô¼º¶¨ÒåÒ»¸öÀàËÆµÄTsp_ShiftKeys ÎÒÊÔ¹ýfZoomShift:=[ssLeft]+TShiftState(Ord(V))£¬Ò²²»ÐС£ Õâ¸öÊÇSGraphÔ´ÂëÀïµÄ¡£ Éý¼¶µ½D2010¾ÍºÜÔΣ¬Ò»¶Ñ´íÎóÌáʾ ÎÒÖ»ÖªµÀÕâЩ£º 2010ÖÐÆÕ±é²ÉÓÃÁËunicode±àÂ룬Äã¿ÉÒÔʹÓÃsizeof¿´¿´£¬SizeOf(TShiftState)ÔÚ2010Ö㤶ÈÊÇ2£¬ÔÚD7ÖÐÊÇ1£¬ËùÒÔת»»Ê±»áÓÐÎÊÌâ ËùÒÔ½«´úÂëÉý¼¶µ½2010»¹ÊÇÓÐЩÂé·³µÄ£¬±ÈÈçchar£¬pchar¶¼Òª°´ÕÕ¿í×Ö·û´¦Àí ȷʵ²»ÐУ¬²»¹ýTsp_ShiftKeysÒѾ°üº¬ÁË(ssShift, ssAlt, ssCtrl); Ϊɶ»¹Òª×Ô¼º¶¨ÒåÒýÓà ÎÒÖ»ÖªµÀÕâЩ£º 2010ÖÐÆÕ±é²ÉÓÃÁËunicode±àÂ룬Äã¿ÉÒÔʹÓÃsizeof¿´¿´£¬SizeOf(TShiftState)ÔÚ2010Ö㤶ÈÊÇ2£¬ÔÚD7ÖÐÊÇ1£¬ËùÒÔת»»Ê±»áÓÐÎÊÌâ ËùÒÔ½«´úÂëÉý¼¶µ½2010»¹ÊÇÓÐЩÂé·³µÄ£¬±ÈÈçchar£¬pchar¶
Ïà¹ØÎÊ´ð£º
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ °´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£ Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£ btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£ ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£ È磺DLLImport.GlobalAddAtom(¡¡); Îļþ£ºUShare.pas Delphi(Pascal) code: unit UShare; interface uses Windows, Me ......
ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......