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

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#µÄÓÐÒ»ÖÖд·¨Ò»Ñù 

¹À¼Æ¡£¡£¡£ 


Ïà¹ØÎÊ´ð£º

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

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

delphiÖÐselect µÄ whereºóÃæµÄid=±äÁ¿Ôõôд°¡

ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾ­È¡µÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......

¹ØÓÚDelphiÁ¬½ÓACCESSÊý¾Ý¿â²éѯÎÊÌâ

¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......

delphi ÓйØdbgridehµÄdropdownlist

Õâ¸öÊôÐÔÔõôÓ𡣿
ÎÒÏëʵÏÖÈçϹ¦ÄÜ£ºÔÚdbgridehÖа´Ï¼ýÍ·£¬Èç¹ûµ±Ç°Ö¸ÕëÍ£ÁôÔÚÏàÓ¦ÁÐÉÏ£¬¾ÍÁгöÔ¤ÉèµÄ¼¸¸öÑ¡Ï¹©Óû§Ñ¡Ôñ£¨Óëcombobox£©ÀàËÆ
ÇëÎÊ£¬ÓÃdropdownlist¿É·ñʵÏÖ£¿
ÐÂÊÖ£¬°ïÄãUPÏ ÈËÆø¡£
......

VC Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ