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ʹÓÃWebserviceºÍJAVAͨѶʱ£¬¿ÉÒÔ½«DELPHIµÄʱ¼äÖ±½Ó´«¸øJAVA¡£´Ó¶øÃâÈ¥ÁËʱ¼ä×Ö·û´®parseÖ®¼äµÄÏûºÄ£¬Ìá¸ßµÄ³ÌÐòЧÂÊ¡£
Delphiʱ¼äʵÖʾÍÊÇdoubleÀàÐÍ£¬ÕûÊý²¿·Ö±íʾÌ죬СÊý²¿·Ö±íʾµ±Ììʱ¼ä£¬Ã¿ºÁÃëΪ1/86400000¡£¿¼Âǵ½Ê±ÇøµÄת»»ºó£¬JAVAºÍDELPHIʱ¼äÖ®¼äµÄת»»ÀàÈçÏ£º
import java.util.Calendar ......
ADO ʹÓà ORACLE provider FOR OLE DB Çý¶¯Ê±
µ÷Óô洢¹ý³ÌÐèÒª·µ»ØÓαêʱ£¬ÔÚÁ¬½Ó×Ö·û´®ÖÐÔö¼Ó
PLSQLRSet=1 ²ÎÊý¡£
´æ´¢¹ý³ÌÖеÄÓα겻ÐèÒª¸¶³õʼֵ
Èç:
sp1: TADOStoredProc;
sp1.Close;
sp1.ProcedureName := 'pkg_ScanList_By_JobNo.sp_GetScanList';& ......
¿´ÈçÏ´úÂ룺
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 2010ֻʣÏÂÁùÌìµÄÊÔÓÃÆÚÁË,15ÌìµÄÊÔÓÃÆÚ¹ýµÃÕæ¿ì.°Ù¶ÈÁ˺ܾÃÒ²ÒÀ¾ÉδËÑË÷µ½ÆÆ½â²¹¶¡,¿´À´Õâ°æ±¾µÄ·ÀµÁ°æ¹¤×÷×öµÃȷʵ²»´í.ÎÞÄÎÖ®ÏÂÖ»ºÃ×Ô¼º¶ÔËü×ö×öÊÖ½ÅÁË.
²âÊÔÁËÒ»ÏÂ,delphiÖ»ÓÐÔÚÆô¶¯³ÌÐòµÄʱºò°Ñʱ¼ä¼Ç¼¸ø¸üе½µ±Ç°ÈÕÆÚ,ϵͳÄÚ²¢²»×¤ÁôÏàÓ¦µÄ ......
Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ
Round ת»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ
Trunc ת»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö
IntToStr ½«Êýֵת»»Îª×Ö·û´ ......