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

DelphiÖ¸ÕëÀàÐÍdzÎö

²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
 
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£  
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò»¸öÄÚ´æµÄµØÖ·£¬ÎªÖ¸ÕëËùÖ¸ÏòµÄÄÚÈÝ·ÖÅä¿Õ¼äÊdzÌÐòÔ±Òª¸ÉµÄ¹¤×÷¡£
£¨3£©¡¢Èç¹ûÒ»¸öÖ¸ÕëûÓÐÖ¸ÏòÈκÎÊý¾Ý£¬ËüµÄÖµÊÇn i l£¬Ëü¾Í±»³ÆÎªÊÇÁã( n i l )Ö¸Õë»ò¿Õ(null) Ö¸Õë¡£
£¨4£©¡¢Òª·ÃÎÊÒ»¸öÖ¸ÕëËùÖ¸ÏòµÄÄÚÈÝ£¬ÔÚÖ¸Õë±äÁ¿Ãû×ֵĺóÃæ¸úÉÏ^ÔËËã·û¡£ÕâÖÖ·½·¨³ÆÎª¶ÔÖ¸ÕëÈ¡ÄÚÈÝ¡£
£¨5£©¡¢Ö¸ÕëµÄÖ¸Õë¾ÍÊÇÓÃÀ´´æ·ÅÖ¸ÕëËùÔÚµÄÄÚ´æµØÖ·µÄ¡£
 
Òª¸ãÇåÒ»¸öÖ¸Õ룬ÐèÒªÁ˽âÒÔÏÂÄÚÈÝ£º
£¨1£©¡¢Ö¸ÕëµÄÀàÐÍ¡£
£¨2£©¡¢Ö¸ÕëËùÖ¸ÏòµÄÀàÐÍ¡£
£¨3£©¡¢Ö¸ÕëµÄÖµ(¼´Ö¸ÕëËùÖ¸ÏòµÄÄÚ´æÇø)¡£
£¨4£©¡¢Ö¸Õë±¾ÉíËùÕ¼¾ÝµÄÄÚ´æÇø¡£
 
Ö¸Õë´óС
Ö¸ÕëÊÇÒ»¸öÎÞ·ûºÅÕûÊý£¨unsigned int£©£¬ËüÊÇÒ»¸öÒÔµ±Ç°ÏµÍ³Ñ°Ö··¶Î§ÎªÈ¡Öµ·¶Î§µÄÕûÊý¡£Ö¸ÕëÀàÐͱäÁ¿±¾ÉíÒªÕ¼Äڴ棬ռÓÃÄÚ´æµÄ´óСÓë»úÆ÷Ó²¼þ¡¢²Ù×÷ϵͳÒÔ¼°±àÒëÆ÷¶¼ÓйØÏµ£¬×îÖ±½ÓµÄ¹ØÏµ¾ÍÊDZàÒëÆ÷£¬ÏÖÔڵıàÒëÆ÷´ó¶¼ÊÇ32루4B£©µÄ£¬¼´Ê¹ÄãµÄ»úÆ÷ºÍ²Ù×÷ϵͳ¶¼ÊÇÊÇ64λµÄ£¬ËùÒÔÖ¸ÕëÀàÐͱäÁ¿Ò»°ãÕ¼ÓÃ4B¿Õ¼ä(Ò²¾ÍÊǿɱíʾ2^32´Î·½µÄµØÖ·¿Õ¼ä)¡£
 
Ö¸ÕëÀàÐÍ
Ò»¸öÖ¸Õë±äÁ¿Ö¸Ê¾ÁËÄÚ´æµÄλÖá£PASCALͨÓÃÖ¸ÕëÀàÐ͵ÄÃû³ÆÊÇPointer£¬PointerÓÐʱÓÖ±»³ÆÎªÎÞÀàÐÍÖ¸Õ룬ÒòΪËüÖ»Ö¸ÏòÄÚ´æµØÖ·£¬µ«±àÒëÆ÷²¢²»¹ÜÖ¸ÕëËùÖ¸ÏòµÄÊý¾Ý£¬ËùÒÔ½¨ÒéÄãÔڴ󲿷ÖÇé¿öÏÂÓÃÓÐÀàÐ͵ÄÖ¸Õë¡£
 
ÈκζÔÏ󡢽ṹ¡¢±äÁ¿Ê²Ã´µÄ£¬ÔÚÄÚ´æÀïÃæ£¬ÊµÖÊÉϾÍÊÇ×Ö½ÚÁ÷£¬ÄÇôºÜÓпÉÄÜijһ¸ö×Ö½ÚÊý×éarray of charµÄÄÚÈݸպúÍijһ¸ö¶ÔÏóµÄ×Ö½ÚÁ÷ÄÚÈÝÒ»Ñù£¬Èç¹ûÒ»¸öpointerÖ¸ÏòµÄÄÚÈÝΪÉÏÊö×Ö½ÚÄÚÈÝ£¬ÄãÄÜÇø·ÖÊÇÄǸö¶ÔÏó»¹ÊÇarray of charµÄ×Ö½ÚÊý×飿Pointer ×÷Ϊһ¸öÎÞÀàÐÍÖ¸Õ룬¿ÉÒÔÖ¸ÏòÈκÎÔªËØ¡£Ç¿ÖÆ×ª»»Ê±£¬Delphi ²¢²»ÖªµÀ Pointer Ö¸ÏòµÄÊý¾ÝÊÇʲôÀàÐÍ¡£ÀýÈçTObject(p) ¾ÍÊÇÒ»ÖÖÇ¿ÖÆ×ª»»£¬ÓÃÓÚ¸æËß±àÒëÆ÷Ö¸ÕëÖ¸ÏòµÄÊý¾ÝÊÇTObjectµÄʵÀý¡£Ò²¾ÍÊÇ˵£º±àÒëÆ÷²»ÄÜÈ·¶¨ÀàÐÍת»»µÄÕýÈ·ÐÔ£¡Äã±ØÐë×Ô¼º¸ºÔð¸ÃÖ¸ÕëµÄʵ¼ÊÖ¸Ïò£¡×ܵÃ˵À´£¬ÎÞÀàÐÍÖ¸ÕëµÄת»»ÊÇûÓа²È«ÐԵģ¬Äã±ØÐëÃ÷È·Ö¸ÕëµÄÓÃ;²Å¿ÉÒÔʹÓá£
 
ÓÐÀàÐÍÖ¸ÕëÔÚÄãµÄÓ¦ÓóÌÐòµÄType²¿·ÖÓÃ^ (»òPointer)ÔËËã·ûÉùÃ÷¡£¶ÔÓÚÓÐÀàÐÍÖ¸ÕëÀ´Ëµ£¬±àÒëÆ÷ÄÜ׼ȷµØ¸ú×ÙÖ¸Õë


Ïà¹ØÎĵµ£º

delphi Ñ¡ÔñÎļþ¼Ð


function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer; stdcall;
begin
if uMsg = BFFM_INITIALIZED then
begin
SendMessage(Wnd, BFFM_SETSELECTION, 1, lpData);
SetWindowText(Wnd, 'Ñ¡ÔñÒ»¸öÄ¿±ê');
end;
Result := 0;
end;
//hdl: ´°¿Ú¾ä±ú
//Root: ¸ùÄ ......

Delphi¿ØÖÆExcel2000ÐĵÃ

(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add ......

delphi TStringList Ó÷¨Ïê½â

delphi TStringList Ó÷¨Ïê½â
//TStringList ³£Ó÷½·¨ÓëÊôÐÔ
:
var
  List: TStringList;
  i: Integer;
begin
  List := TStringList.Create;
  List.Add('Strings1');           {Ìí¼Ó}
  List.Add('Strings2');
  List.Exch ......

ÔÚWIN32ÖеĴ®¿ÚͨѶ£¨Delphi£©

ÔÚWIN32ÖеĴ®¿ÚͨѶ£¨Delphi£©
ÓÉÔÚWIN32²Ù×÷ϵͳÖнûÖ¹Ó¦ÓóÌÐòÏóDOSÖÐÄÇÑùÖ±½Ó·ÃÎʼÆËã»úÓ²¼þ£¬Òò´Ë£¬ÎÞ·¨ÏóÒÔǰÄÇÑù²ÉÓÃÖж϶Áд´®¿Ú¡£µ«ÊÇÔÚWIN32ÖÐÎÒÃǿɷ¢²ÉÓÃÁ½ÖÖ·½·¨·ÃÎÊ´®¿Ú£º1¡¢Ê¹ÓÃVBÖеÄMSCOMM´®¿Ú¿Ø¼þ£»2¡¢²ÉÓÃAPIº¯Êý£¬±¾ÎÄÖ÷Òª½éÉܲÉÓÃAPIº¯ÊýʵÏÖ´®¿ÚͨѶ¡£
ÓÉÓÚWM_COMMNOTIFYÏûÏ¢Òѱ»È¡Ïû£¬¹Ê±¾ÎÄ×Ô¶ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ