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

delphi µ÷Óô洢¹ý³Ì

Çë½Ì´ó¼ÒÒ»¸öÎÊÌ⣬delphi²»Óÿؼþµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì¡£ ÈçÏÂÃæÓï¾ä£º
....//Ç°ÃæµÄÓï¾äÎÒ¾ÍÊ¡ÂÔÁË
strSQL:='UP_READREQ '+''''+strApplyID+''''+,+strNo+','+''''+ReceiverName+'''';  //µ÷Óà ´æ´¢¹ý³Ì
qrySP.close;
qrySP.DatabaseName:='DB';
qrySP.SQL.Text:=strSQL;
try
  qrySP.ExecSQL;
except
showmessage('µ÷Óùý³Ì²»³É¹¦');
end£»
......//ºóÃæµÄÎÒҲʡÂÔÁË


ÇëÎÊÎÒÕâÑùµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì£¬²»¼ÓcommitÐÐÂ𣿠Èç¹ûÒª¼Ó¸ÃÔõÃ´Ð´ÄØ£¿Ö±½Ó¼ÓÔÚÓï¾äºóÃæÂð£¿
лл´ó¼Ò£¡
commitÊÇÓÃÓÚÊÂÎñµÄ~~

  adoconnection1.BeginTrans; 
  try 
  ..... 
  ..... 
  adoconnection1.CommitTrans; 
  finally 
      adoconnection1.RollbackTrans; 
  end;

Óï¾äºÃÏñ»¹Ã»¼Ó exec

strSQL:=' exec UP_READREQ '+''''+strApplyID+''''+,+strNo+','+''''+ReceiverName+'''';

strSQL:=' exec UP_READREQ '+''''+strApplyID+''''+,+strNo+','+''''+ReceiverName+'''';
qrySP.close;
qrySP.DatabaseName:='DB';
qrySP.SQL.Text:=strSQL;
try
&nbs


Ïà¹ØÎÊ´ð£º

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

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

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

СµÜ²»»áDELPHI£¬Çë´óÏÀÃǰï¸öæ

Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

delphiÖйØÓÚEditµÄÎÊÌâ

ÔÚÏÂÃæµÄ´úÂëÖпÉÒÔʵÏÖEdit1.TextÖÐÊäÈë6¸ö×Öĸ»òÊý×ÖʱEdit2.SetFocus,ÄÇôÎÒÏëÈÃEdit2.textÖÐÊäÈë6¸ö×ÖĸʱʵÏÖEdit3»ñµÃ½¹µã£¬ÓÐûÓмòµ¥Ò»µãµÄ·½·¨£¬Ð»Ð»´ó¼ÒÁË£¡£¡£¡

procedure TForm2.Edit1Change(Sen ......

DelphiÕâôÁéÒìµÄ£¿

Delphi(Pascal) code:

var
str:array of string;
i:Integer;
j:Integer;
begin
SetLength(str,1);
for i:=0 to 4 do
begin
j:=Length(Str);
SetLength(str,Length(str)+1);
S ......

delphiµ÷ÓÃdllÎÊÌ⣬ר¼Ò¾ÈÃü£¬100·ÖÈ«²¿ËÍÉÏ¡£

ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º

5¡¢ClsPort
VOID PASCAL ClsPort(HANDLE hCom)
¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£
²ÎÊý˵Ã÷£º
·µ»ØÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ