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¶
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº s = unicode("²âÊÔ", "gb2312") s = u'\u6d4b\u8bd5' print s ²âÊÔ ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿ ÕÒµ½¸ö·½·¨ ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Â𣿠¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£ µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË É¶É¶ÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b? <p class="text1">1a </p> <p class="text1">2b </p> <p class="text1">3c </p> <p cl ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£ ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£ È磺DLLImport.GlobalAddAtom(¡¡); Îļþ£ºUShare.pas Delphi(Pascal) code: unit UShare; interface uses Windows, Me ......