delphi pack classÊÇʲô£¿
×òÍí£¬ÎÒÔÚ³¢ÊÔ°ÑijЩ¿Ø¼þ´ÓD7°áµ½D2010ÉÏ¡£ÔÚ´¦ÀíAstaµÄʱºò£¬ Óм¸¸öÌáÊ¾ÌØ¹Ö£¬ ÎÒÃÇÒ»°ã¶¼ÊÇÕâÑùдÀàµÄ Txxx=class private public ¿ÉÊÇAstaµÄ×÷Õß¾¹È»ÊÇÕâÑùдµÃ Txxx=pack class//Õâ¸öÊÇʲôÒâ˼£¿¢Ù private public ÎÒÊÇÖ±½Ó°ÑPackɾµôÁË¡£¾Í²»ÖªµÀÊǺν⣿ »¹ÓÐÒ»¸ö Boolean(Str[0]):=xxx <>nil; ÎÒ¿¿£¬ÊDz»ÊDZíʾɶ¸ß¿Æ¼¼£¿¢Ú ¸ßÈËÖ¸µãһϡ£
pack class? ľ¼û¹ý£¬Â¥Ö÷°´ÏÂF1£¬½«°ïÖúcopy¹ýÀ´³ò³ò StrÊÇʲôÀàÐÍ£¬StringµÄ»°£¬ÎÒÔÚD7±àÒï²»¹ý¡£ Boolean(Str[0]) := xxx <>nil; Str[0]ת»»³ÉBooleanÀàÐͽøÐи³Öµ(Boolean¾ÍÊÇ0..1) Ó¦¸ÃÊÇ£º Txxx = packed class//Õâ¸öÊÇʲôÒâ˼£¿¢ÙѹËõ´æ´¢ private public end; packed class£¬Ñ¹Ëõ´æ´¢Àà ѹËõ´æ´¢Àà ÖеÄѹËõºÎ½â°¡£¿ Boolean(Str[0]):=xxx <>nil; ÕâÒ»¾äµÄÒâ˼ÊÇ: if xxx = nil then Str[0] := 0 (#0) else Str[0] := 1 (#1) Èç¹ûStrÊÇ×Ö·û´®»òÕß×Ö·ûÊý×飬Ӧ¸ÃÊÇ#1ºÍ#0 ÒýÓà ѹËõ´æ´¢Àà ÖеÄѹËõºÎ½â°¡£¿ ʹÀàµÄ×ֶΰ´×Ö½Ú¶ÔÆä£¬È±Ê¡ÊÇË«×Ö¶ÔÆë ²»¶® Boolean(Str[0]):=xxx <>nil; ÕâÖÖд·¨ºÍÔÀ´c#µÄÓÐÒ»ÖÖд·¨Ò»Ñù ¹À¼Æ¡£¡£¡£
Ïà¹ØÎÊ´ð£º
procedure RunFunction; type TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä var ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º var id:=integer; begin id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ; ... ... ... adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......
Õâ¸öÊôÐÔÔõôÓ𡣿 ÎÒÏëʵÏÖÈçϹ¦ÄÜ£ºÔÚdbgridehÖа´Ï¼ýÍ·£¬Èç¹ûµ±Ç°Ö¸ÕëÍ£ÁôÔÚÏàÓ¦ÁÐÉÏ£¬¾ÍÁгöÔ¤ÉèµÄ¼¸¸öÑ¡Ï¹©Óû§Ñ¡Ôñ£¨Óëcombobox£©ÀàËÆ ÇëÎÊ£¬ÓÃdropdownlist¿É·ñʵÏÖ£¿ ÐÂÊÖ£¬°ïÄãUPÏ ÈËÆø¡£
......
VC ¿ØÖÆÌ¨³ÌÐò: #include <iostream> using namespace std; int main() { const int def_buffer = 1024 * 4; DWORD t; BYTE b[def_buffer]; memset(b, 0, sizeof(b)); PBYTE p; t = GetTickC ......