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

Delphi¶¯Ì¬Ê¼þÉîÈë·ÖÎö

Delphi¶¯Ì¬Ê¼þÉîÈë·ÖÎö
2009-2-7
×÷Õß:²»µÃÏÐ
ºËÐÄÌáʾ£º±¾ÊµÑéÖ¤Ã÷ÁËÔÚÀàÖз½·¨µÄµ÷ÓÃʱºò£¬ËùÓеķ½·¨¶¼Òþº¬ÁËÒ»¸öSelf²ÎÊý£¬²¢ÇҸòÎÊý×÷Ϊ¶ÔÏó·½·¨µÄµÚÒ»¸ö²ÎÊý´«µÝ...
Ê×ÏÈ×öÒ»¸ö¿Õ´°Ì壬·ÅÈëÒ»Button¡£
ÔÚimplementationÏÂÃæÉùÃ÷Á½¸ö·½·¨ÈçÏ£º
//Íⲿ·½·¨£¬Ö»ÉùÃ÷Ò»¸ö²ÎÊý£¬´Ëʱ°´ÕÕ±ê×¼µÄ¶ÔÏóÄÚ²¿Ê¼þ·½·¨TNotifyEventÉùÃ÷,´ËÉùÃ÷ÖУ¬SenderÔò¶ÔӦΪ²úÉú¸ÃʼþµÄ¶ÔÏóÖ¸Õë¡£
procedure ExtClick1(Sender: TObject);
begin
{asm
mov eax,[edx+8]
call showmessage
end; }
showmessage(TComponent(Sender).Name);
end;

//Íⲿ·½·¨£¬ÉùÃ÷Á½¸ö²ÎÊý,ÓÃÀ´Ö¤Ã÷£¬¶ÔÏóÔÚµ÷ÓÃʱºò»á´«µÝÒ»¸öSelfÖ¸Õ룬´ËʱÎÒÃǼÙÉèFrmÊÇͨ¹ýÀà¶ÔÏ󴫵ݹýÀ´µÄSelfÖ¸Õ룬¶øSenderΪ²úÉú¸ÃʼþµÄ¶ÔÏóÖ¸Õë
procedure ExtClick(Frm: TObject;Sender: TObject);
begin
{asm
mov eax,[edx+8]
call showmessage
end; }
showmessage(TComponent(Sender).Name);
if Frm is TForm then
TForm(Frm).Close
end;

//È»ºóÔÚ ‘Ö¸¶¨µ÷ÓÃ’°´Å¤Ê¼þÖÐд´úÂ룺
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(TComponent(Sender).Name);
end;

//ºÜÏÔÈ»ÔËÐеÄʱºò£¬µã¸Ã°´Å¤µÃµ½µÄÊÇ·µ»ØÒ»¸ö ÏûÏ¢ÄÚÈÝΪ ‘Button1’µÄ¶Ô»°¿ò£¬ÕâÊǵ÷ÓÃForm1ÀàµÄ¶ÔÏóʼþ´¥·¢µÄ·½·¨¡£
//ÔÚµ÷Óà ‘µ÷ÓÃFormÀàÍⲿ·½·¨´¥·¢Ê¼þ’ ClickʼþÖÐд
procedure TForm1.Button2Click(Sender: TObject);
var
ExtClickEvent: TNotifyEvent;
begin
integer(@ExtClickEvent) := integer(@ExtClick1);
//½«ExtClickEventµØÖ·Ö¸ÕëÖ¸ÏòÍⲿº¯ÊýExtClick1·½·¨µÄµØÖ·
Button1.OnClick := ExtClickEvent;
//½«¸ÃµØÖ·¸³Öµ¸ø Button1µÄOnClickʼþÌæ»»ÒÔǰµÄOnClickʼþ
end;

//ÁíÒ»¸ö°´Å¤Ð´´úÂëÈçÏ£º
procedure TForm1.Button3Click(Sender: TObject);
begin
Button1.OnClick := Button1Click;//»¹Ô­Îª¶ÔÏóÄÚ´¥·¢Ê¼þº¯Êý
end;

ÔËÐÐÖ®ºó
µãһϠ‘µ÷ÓÃFormÀàÍⲿ·½·¨´¥·¢Ê¼þ’ £¬È»ºóÔڵ㠑ָ¶¨µ÷ÓÃ’°´Å¤£¬
showmessage(TComponent(Sender).Name);·µ»ØµÄÖµÊÇ ‘Form1’£¬´ËʱÊÇ·ñ¾ÍÒѾ­ËµÃ÷ÁËÆäµÚÒ»¸ö²ÎÊýÊÇ·ñ¾ÍÊÇ´«µÝµÄÒ»¸öSelfÖ¸ÕëÄØ¡£ËùÒÔÔÚµ÷ÓÃButton.ClickʼþµÄʱºò´«µÝ¹ýÀ´µÄµÚÒ»¸ö²ÎÊýΪForm1ÄÚ²¿µÄSelfÖ¸Õ룬


Ïà¹ØÎĵµ£º

Delphiʱ¼äºÍJavaʱ¼äµÄת»»Àà¡£

ÕâÑùÒ»À´£¬DelphiʹÓÃWebserviceºÍJAVAͨѶʱ£¬¿ÉÒÔ½«DELPHIµÄʱ¼äÖ±½Ó´«¸øJAVA¡£´Ó¶øÃâÈ¥ÁËʱ¼ä×Ö·û´®parseÖ®¼äµÄÏûºÄ£¬Ìá¸ßµÄ³ÌÐòЧÂÊ¡£
Delphiʱ¼äʵÖʾÍÊÇdoubleÀàÐÍ£¬ÕûÊý²¿·Ö±íʾÌ죬СÊý²¿·Ö±íʾµ±Ììʱ¼ä£¬Ã¿ºÁÃëΪ1/86400000¡£¿¼Âǵ½Ê±ÇøµÄת»»ºó£¬JAVAºÍDELPHIʱ¼äÖ®¼äµÄת»»ÀàÈçÏ£º
import java.util.Calendar ......

DELPHI 2007ÖÐʹÓÃADOµ÷ÓÃORACLEÓзµ»ØÓαêµÄ´æ´¢¹ý³Ì


ADO ʹÓà ORACLE provider FOR  OLE DB Çý¶¯Ê±
µ÷Óô洢¹ý³ÌÐèÒª·µ»ØÓαêʱ£¬ÔÚÁ¬½Ó×Ö·û´®ÖÐÔö¼Ó
PLSQLRSet=1 ²ÎÊý¡£
´æ´¢¹ý³ÌÖеÄÓα겻ÐèÒª¸¶³õʼֵ
 
Èç:
  sp1: TADOStoredProc;
 
 
 sp1.Close;
 sp1.ProcedureName := 'pkg_ScanList_By_JobNo.sp_GetScanList';& ......

delphiÖйØÓÚ×Ö·û´®Êý×éµÄÒ»¸öСBUG

¿´ÈçÏ´úÂ룺
var
   buffer:array [0..6] of char;
begin
    buffer:='delphi';
end;
±àÒëͨ¹ý
ÔÙ¿´ÈçÏ´úÂ룺
var
   buffer:array [1..7] of char;
begin
    buffer:='delphi';
end;
±àÒë´íÎó£º
Incompatible types: 'Array' and 'String'
Õæ²»ÖªµÀ ......

DELPHI²»¹ýÆÚÁË...

      Delphi 2010ֻʣÏÂÁùÌìµÄÊÔÓÃÆÚÁË,15ÌìµÄÊÔÓÃÆÚ¹ýµÃÕæ¿ì.°Ù¶ÈÁ˺ܾÃÒ²ÒÀ¾ÉδËÑË÷µ½ÆÆ½â²¹¶¡,¿´À´Õâ°æ±¾µÄ·ÀµÁ°æ¹¤×÷×öµÃȷʵ²»´í.ÎÞÄÎÖ®ÏÂÖ»ºÃ×Ô¼º¶ÔËü×ö×öÊÖ½ÅÁË.
      ²âÊÔÁËÒ»ÏÂ,delphiÖ»ÓÐÔÚÆô¶¯³ÌÐòµÄʱºò°Ñʱ¼ä¼Ç¼¸ø¸üе½µ±Ç°ÈÕÆÚ,ϵͳÄÚ²¢²»×¤ÁôÏàÓ¦µÄ ......

DelphiÀàÐÍת»»

Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û  
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ  
Round ×ª»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ  
Trunc ×ª»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ  
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö  
IntToStr ½«Êýֵת»»Îª×Ö·û´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ