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); Ϊɶ»¹Òª×Ô¼º¶¨Òå
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......