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

delphi forÑ­»·ÔõôÑù ¸ú×Ùѽ£¿

ÎÒÕâÀïÑ­»·Óм¸°Ù´Î ÎÒÈÃËûÔÚÌØ¶¨µÄÑ­»·´ÎÊýÀï ²é¿´¸ú×Ù±äÁ¿ÔõôÉèÖð¡¡£
ÀýÈçÑ­»·ÊÇ1-100´Î  ÆäÖÐÎÒÖ»Ïë¿´µÚ55´ËµÄÑ­»· µ¥²½¸ú×ÙÌ«ÂýÌ«ÀÛÁË¡£Çë½Ì¸÷λ

±ÈÈç1-1000 ÎÒÖ»Ïë²é¿´µÚ55´ÎÑ­»·µÄÇé¿ö
for i := 1 to 100 do
begin
  if i = 55 then
    showmessage('Stop'); //ÔÚÕâÀïÏÂÒ»¸ö¶Ïµã¾Í¿ÉÒÔÁË
end;

»¹ÓиüºÃµÄ°ì·¨Âð

µ÷ÊÔÒ²ÊÇÒ»ÃÅѧÎÊ
ÀýÈç
for i := 1 to 100 do
begin
  Test¡£¡£¡£¡£¡£
end;
ÔÚTestÉÏ´ò¶Ïµã£¬ È»ºóÔÚСºìµãÄǵãÓÒ¼üÑ¡Break Point Property £¬ ÔÚconditionÀïдi=55

ÒýÓÃ
µ÷ÊÔÒ²ÊÇÒ»ÃÅѧÎÊ
ÀýÈç
for i := 1 to 100 do
begin
  Test¡£¡£¡£¡£¡£
end;
ÔÚTestÉÏ´ò¶Ïµã£¬ È»ºóÔÚСºìµãÄǵãÓÒ¼üÑ¡Break Point Property £¬ ÔÚconditionÀïдi=55

mark¡£

ÒýÓÃ
µ÷ÊÔÒ²ÊÇÒ»ÃÅѧÎÊ
ÀýÈç
for i := 1 to 100 do
begin
  Test¡£¡£¡£¡£¡£
end;
ÔÚTestÉÏ´ò¶Ïµã£¬ È»ºóÔÚСºìµãÄǵãÓÒ¼üÑ¡Break Point Property £¬ ÔÚconditionÀïдi=55

UP£¬¾ÍÊÇÕâÑù

UPUP !

UPUP,ÓеãÀàËÆVBµÄÃüÖÐ

Delphi(Pascal) code:

var
I: Integer;
begin
for I := 0 to 100 do
Caption := IntToStr(I); // ÏȽ«Êó±ê·ÅÕâÀȻºó Run - AddPointBreadk-


Ïà¹ØÎÊ´ð£º

delphi ÔõÑù½«ucs2±àÂëת»»³ÉÖÐÎÄ

½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......

VC Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

Delphi½øÏú´æÅ̵ãά»¤ ÅÌÓ¯¿÷¹¦ÄÜ

ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬

Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷

һ¥ÕýÈ·£¡

лл¸÷λÀ²

¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ