DelphiÖÐÓÃADOϵÁпؼþ»ñµÃ´æ´¢¹ý³ÌµÄReturnÖµ
ÔÚDelphiÖÐAdoϵÁпؼþʹÓÃxxxxx.Parameters.Refresh,¿ÉÒÔ»ñµÃ´æ´¢¹ý³ÌµÄReturnÖµ
ÒÔTADOStoredProcΪÀý
ADOStoredProc1.Connection := 'xxxx';
ADOStoredProc1.ProcedureName := 'XXXX';
ADOStoredProc1.Parameters.Refresh; //ˢд洢¹ý³ÌµÄ²ÎÊýÁбí
//²ÎÊý¸³Öµ
ADOStoredProc1.ExecProc;
ADOStoredProc1.Parameters[0].Value; //¾ÍÊÇReturnµÄ·µ»ØÖµ
Ïà¹ØÎĵµ£º
1¡¢TStringListÖ§³ÖµÄ×î´óÐÐÊýÊǶàÉÙ£¿£¨http://topic.csdn.net/t/20060209/14/4547405.html£©
Â¥Ö÷½áÂÛ£º“TStringListµÄLoadfromFileº¯ÊýÓ¦¸ÃÖ»ÄܶÁÈ¡15ÍòÐÐÒÔÄÚµÄÊý¾Ý£¬µ«TStringListºÍTListµÄAddº¯Êý¿ÉÒÔ¼Óµ½¼¸°ÙÍòÐУ¨ÉõÖÁ¸ü¶à£©Ò²²»»á³ö´í¡£³ÌÐò³ö´íµÄÔÒòÓ¦¸ÃÊÇAdd·Ç·¨ÄÚ´æÖ¸Õëµ¼Öµģ¬ÕýÈçtanlim(ÇóѧÕß) &nb ......
---
Delphi in a Unicode World Part I: What is Unicode, Why do you need
it, and How do you work with it in Delphi?
By: Nick
Hodges
ÔÎÄÁ´½Ó£ºhttp://dn.codegear.com/article/38437
Abstract: This article discusses Unicode, how Delphi developers
can benefit from using Unicode, and ho ......
´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......
DELPHI
//////////////////////////////////
Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer; &nbs ......
²»ÂÛÊý×éÔªËØÊÇʲôÀàÐÍ£¬¾²Ì¬Êý×éµÄ¾Ö²¿±äÁ¿×Ü»áÔÚÕ»ÉÏ·ÖÅä¡£Èç¹û¶ÑÕ»´óС²»¹»½«»áµ¼ÖÂÒì³£¡£ÏÂÀý°µ²Ø×ÅÒ»¸öΣÏÕµÄbug
procedure stackover;
var
s:array [0..4100] of string[255];
begin
end;
delphiĬÈÏÕ»×î´óΪ$100000×Ö½Ú£¬ÉÏÀýÖеÄÕ»ÉÏ·ÖÅäµÄ´óÏÀΪ256*4100>$10000¡£²âÊÔ±ØÈ»»á³öÏÖÒì³£Stack overf ......