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

delphiÊ÷µÄ±éÀúÇóºÍ

´ó¼ÒºÃÓÐÎÊÌâÇë½Ì
ÈçÌ⣺
Êý¾Ý¿â½á¹¹£º
id,parentid,name,money,totalmoney
0,0,¸ù½Úµã,0,0
1,0,ÕÅɽ,1000,0
2,0,ÕźÃ,2000,0
3,0,ÍõÎå,3000,0
4,1,ÀèÃ÷,4000,0
5,2,ÀÏÁõ,5000,0
...........
ÏÖÔÚʹÓÃdxdbtreeviewÄܹ»ÐγÉÊ÷Ðνṹ¡£
Òª½â¾öµÄÎÊÌ⣬ÈçºÎʵÏÖÿ¸öÈ˵ÄtotalmoneyΪËùÓÐϲã½ÚµãµÄºÍ¡£
Òâ˼¾ÍÊǶ¥²ã½ÚµãµÄtotalmoney×Ö¶ÎΪÏÂÃæËùÓеÄmoneyÖ®ºÍ
µÚ¶þ²ã½ÚµãͬÑùµÄtotalmoney×Ö¶ÎÒ²ÊÇ×Ô¼ºÏÂÃæËùÓнڵãµÄmoneyÖ®ºÍ¡£
ÎÒÊÔ¹ý±éÀúËã·¨£¬µ«ÊÇÒ»´Î±éÀúÖ»ÄÜËã³öÒ»¸ö½ÚµãµÄÊý¾Ý¡£
±ð±éÀúÁË£¬Ö±½ÓÔÚÊý¾Ý¿âÖÐËãºÃ°É£¬±ÈÈçÄãÔÚ¼ÈëÊý¾Ýʱ£¬¾Í°ÑtotalmoneyËãºÃ£¬Èç¹ûÿ´Î¶¼±éÀúµÄË㣬ЧÂÊÌ«µÍÁË

¼ÈëÊý¾ÝµÄʱºòû·¨Ëã°¡£¬totalmoney³õʼµÄʱºòÊÇ0£¬ÈËԱ¼ÈëÒÔºó£¬Ã¿Ò»¸öÔÂÎÒÒª¼ÆËã³öÿ¸ö½ÚµãµÄtotaomoney£¬Õâ¸öÊýÊÇÏÂÃæÃ¿¸ö½ÚµãµÄmoneyÖ®ºÍ£¬Ò²¾ÍÊÇÒª°ÑmoneyÖ®ºÍÌîÈëÿ¸öÈ˵Ätotalmoney×Ö¶ÎÀïÃæ

Èç¹ûÓÐPARENTÖ¸Õë¾ÍºÃËãÁËÈü ¡«¡« ÿµ±Â¼ÈëµÄʱºò if it.parent<>nil then 
begin
  it.parent.increase(money);
  it := it.parent;
end;

ºÃÏñÕâÑùдû´í°É ¾ÍÊÇÕâ¸öÒâ˼

¿´ÁËÂ¥ÉÏÐֵܵÄ˵·¨ÓеãÁé¸Ð¡£
ÕâÖÖ˵·¨ÊÇÿ´Î¼ÈëÊý¾ÝµÄʱºò½øÐбéÀú¼ÆËã¡£
ÕâÑùÊÇ´Ó×îµ×²ãÍùÉϱéÀúÈÝÒ×ʵÏÖ¡£
ÏÖÔÚÊÇÓÐûÓиüºÃµÄ°ì·¨£º
1.ÔÚ¼ÈëÊý¾ÝµÄʱºò²»½øÐмÆËã¡£
2.ÿ¸öÔ½øÐÐÒ»´Î×îÖÕ»ã×Ü¡£
×îÖÕ»ã×ܵÄʱºò£¬´Ó¸ù½ÚµãÍùϱéÀú±È½ÏÈÝÒ×£¬µ«ÊDZéÀúÒ»´ÎÖ»ÄÜËã³öÒ»¸ö½ÚµãµÄÊý¾Ý¡£
ÕâÑùÒªËã³öÿ¸ö½ÚµãµÄÊý¾ÝÐèÒª±éÀúµÄ´ÎÊýÌ«¶à¡£
ÒªÊÇ»ã×ܵÄʱºò´Óµ×²ã½Úµã¿ªÊ¼ÍùÉϱéÀú£¬Ëã·¨Ò²²»ÈÝÒס£
£¨ÏÈÈ¡³


Ïà¹ØÎÊ´ð£º

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......

vcתdelphiÎÊÌâ

C/C++ code:

void RefreshThreadList (DWORD dwOwnerPID)
{

HANDLE hThreadSnap = NULL;
BOOL bRet = FALSE;
THREADENTRY32 te32 = {0};
int px=0;
......

³õ¼¶ÎÊÌâ,DelphiÖÐ #$10 ÈçºÎת»»³ÉÕûÐ͵Ä16?

ÈçÌâ

¶¨ÒåÒ»¸öÕûÐÍ£¬È»ºó¸øÕûÐ͸³Öµ¾Í¿ÉÒÔÁË£¬´úÂë²Î¿¼£º
Delphi(Pascal) code:

var
i: Integer;
begin
i := $10;
ShowMessage(IntToStr(i));
end;

È¥³ý#ºÅºó£¬µ÷ÓÃStrToInt()
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ