Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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¶


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

ÇóÒ»¶Î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ºÅ