Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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¶


Ïà¹ØÎÊ´ð£º

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

2009ѧϰdelphiµÄǰ¾°

ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½ 
¿´µ½delphiµ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ