³õѧDelphi ÏëÒª¿ìµãÉÏÊÖ - Delphi / Êý¾Ý¿âÏà¹Ø
ÎÒ¸ÕѧϰDelphi£¬ÒòΪÒÔǰûÓÐÓùýËü£¬ËùÒÔ²»ÖªµÀËüÄܲ»ÄÜ×ö³öÏëÒªµÄÑù×Ó£¬ËùÒÔÏÖÔÚÇë´ó¼Ò°ïÎÒ·ÖÎö·ÖÎö£¡
ÏÖÔÚµÄÏîÄ¿Ò»°ã¶¼ÐèÒªÊý¾Ý¿â°É¡£ÒÔÇ°ÎÒÓõÄÊÇ.net£¬ËüÀïÃæÓÐsqlhelperÖ®ÀàµÄ£¬²»ÖªµÀDelphiÀïÃæÓÐûÓпìËÙ¿ª·¢Êý¾Ý¿âÓ¦Óó̶ȵġ£
ÏëÒªÒ»¸ö¼òµ¥ ÈÝÒ׿´¶®µÄ ´úÂëÈ«µÄ ×¢ÊÍÏêϸµãµÄ Êý¾Ý¿â¿ª·¢ÊµÀý ×îºÃÓÐÎĵµËµÃ÷
»¹Ë¯ÄØ?¸ÃÐÑÁË
Â¥Ö÷Âò±¾×î»ù±¾µÄÊé¿´¿´£¬²»ÒªÔÚÕâÀïÎÊÁË¡£
adoconnection,adoquery
°¦¡£¡£¡£
ÎÒÒ²ÓÐÕâ·½ÃæµÄÎÊÌâ
¿´µãС´úÂ룬Ӧ¸ÃÄÜ¿´Ã÷°×
hi hi
ÀÏÐÖ£¬ÏÂÒ»¸öpdfµÄµç×ÓÊé²»¾ÍµÃÁË
²î²»¶àµÄ¶«Î÷£¬¿´ÏÂ×Ô´øµÄDEMO¾ÍÐÐÁË
ÍøÉÏÏÂÔØDEMO¿´Ï¾ͻáÁË£¬ºÜ¼òµ¥µÄ
with Dm_1.Cds_General do
begin
Close;
Commandtext := 'Select JCode,PCode,ModelNum,ProcCode,SubNum,WsCode,sKind,Sl-OutQty As BaskQty from V_Ccdmxk Where Sh_f =1 and NewBarCode = ' + '''' + DBEdit_BarCode.text + '''' + ' and Sl > OutQty ' + ' and DeptId = ' + '''' + 'C' + '''';
open;
first;
if not eof then
begin
Redo_f := true;
Dm_1.Cds_CheckPoint_C_1.fieldbyname('New_BC_f').value := false;
if not fieldbyname('JCode').IsNull then
Dm_1.Cds_CheckPoint_C_1.fieldbyname('JCode').value := fieldbyname('JCode').Value;<
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖÇ°±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
Óü¯ºÏ¸ã¶¨
Ôõ麼È¥運ËãÄØ£¿inc() ......