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

delphi ¿ØÖÆÌ¨ ³ÌÐò

ÎÒÔÚÒ»¸ödelphiµÄapplicationÖмÓÁ˱àÒëÌõ¼þ{$APPTYPE CONSOLE}£¬ËùÒÔ³ÌÐòÆðÀ´Ö®ºóºóÃæ»áÓÐÒ»¸öDOS´°¿Ú£»
¼ÓÉÏÕâ¸ö±àÒë²ÎÊýÊÇΪÁËÖ§³ÖÃüÁîÐвÎÊý·½Ê½ÔËÐгÌÐò£¬ÏÖÔÚÈç¹û²»È¥µôÕâ¸ö±àÒëÌõ¼þÔõô°ÑÕâ¸öDOS´°¿ÚÈ¥£¿£¿£¿£¬

Èç¹ûÊÇÓÃÃüÁîÐÐÎÒÊÇÓÃÅú´¦ÀíÀ´ÔËÐе쬲»ÄÜÏÔʾ½çÃæ£¬µ«Í¬Ê±ÓÖÖ§³ÖÓнçÃæµÄÔËÐУ¬ÎÒÊǸù¾ÝÊÇ·ñÓвÎÊýÀ´Çø·ÖµÄ

ÒýÓÃ
ÃüÁîÐоÍÊÇdoc´°¿Ú
²ÎÊý·½Ê½ ²»¹ÜÃüÁîÐл¹ÊÇgui/form·½Ê½£¬¶¼ÊÇÖ§³ÖµÄ
ÄÜ·ñ˵˵ÔõôʵÏÖ

ÓнçÃæµÄ³ÌÐòÒ²Ö§³Ö²ÎÊýµÄ


ÒýÓÃ
ÒýÓà 1 Â¥ sz_haitao µÄ»Ø¸´:
ÃüÁîÐоÍÊÇdoc´°¿Ú
²ÎÊý·½Ê½ ²»¹ÜÃüÁîÐл¹ÊÇgui/form·½Ê½£¬¶¼ÊÇÖ§³ÖµÄ
ÄÜ·ñ˵˵ÔõôʵÏÖ


2¸öº¯Êý£º
paramcount()
paramstr(i)

²»Óà ¿ØÖÆÌ¨ Ò»Ñù¿ÉÒÔÓòÎÊý ʹÓ÷½Ê½Í¬¿ØÖÆÌ¨³ÌÐò

Èç¹û´°¿ÚÒ²²»Òª£¬¿ÉÒÔÈ¥µô´°¿Ú´úÂëÖ±½ÓдÔÚ dpr ÖУ¬

×îԭʼµÄPascal ³ÌÐò¾ÍÊÇÕâÑù¸ãµÄ


Ïà¹ØÎÊ´ð£º

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

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

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

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

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

Çë½Ì¹ØÓÚDelphiµÄÊ÷Ðοؼþ

ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview 
 treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));

raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ

²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà

TTreeView ......

Delphi Óë ACCESSµÄ¹îÒìÏÖÏó

delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand


//ɾ³ýÊý¾Ý
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
  tmpCmd := TADOCommand.Create(ni ......

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ