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

delphiÖÐapplication.processmessagesµÄ×÷ÓÃ


delphiÖÐapplication.processmessagesµÄ×÷ÓÃ

procedure TForm1.Button2Click(Sender: TObject);
var
   I, J, X, Y: Word;
begin
   I := 0;
   J := 0;
   while I < 64000 do
   begin
     Randomize;
     while J < 64000 do
     begin
       Y := Random(J);
       Inc(J);
      Application.ProcessMessages;
     end;
     X := Random(I);
     Inc(I);
   end;
   Canvas.TextOut(10, 10, 'The Button2Click handler is finished');
end;
´úÂëÖкìÉ«µÄÒ»ÐеÄ×÷Óãº
Èç¹ûÄãÔËÐÐÒ»¸ö·Ç³£ºÄʱµÄÑ­»·£¬ÄÇôÔÚÕâ¸öÑ­»·½áÊøÇ°£¬ÄãµÄ³ÌÐò¿ÉÄܲ»»áÏìÓ¦ÈκÎʼþ£¬Äã°´°´Å¥Ã»Óз´Ó¦£¬³ÌÐòÉèÖÃÎÞ·¨»æÖÆ´°Ì壬¿´ÉÏÈ¥¾ÍÈçͬËÀÁËÒ»Ñù£¬
ÕâÓÐʱ²»ÊǺܷ½±ã£¬ÀýÈçÓÚÖÕֹѭ»·µÄ»ú»á¶¼Ã»ÓÐÁË¡£ÕâʱÄã¾Í¿ÉÒÔÔÚÑ­»·ÖмÓÉÏÕâôһ¾ä£¬Ã¿´Î³ÌÐòÔËÐе½Õâ¾äʱ£¬³ÌÐò¾Í»áÈÃϵͳÏìÓ¦Ò»ÏÂÏûÏ¢£¬´Ó¶øÊ¹ÄãÓлú
»á°´°´Å¥£¬´°ÌåÓлú»á»æÖÆ¡£


Ïà¹ØÎĵµ£º

ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý

ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý
Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb Serviceµ ......

Delphi±àÒëÖ¸Áî˵Ã÷

¡¶DelphiÏÂÉîÈëWindowsºËÐıà³Ì¡·£¨¸½Â¼A Delphi±àÒëÖ¸Áî˵Ã÷£©
Õª³­ÈË£ºÂé×Ó qq:71892967
Delphi¿ìËÙ¸ßСµÄ±àÒëÆ÷Ö÷ÒªÀ´×ÔObject PASCALµÄÑϽ÷£¬Ê¹ÓÃDelphiËæÊ±¶¼ÔÚÓë±àÒëÆ÷½»Á÷£¬´ó²¿·ÖÇé¿öϲ»ÐèÒª¸ÉÉæ±àÒëÆ÷µÄÔËÐУ¬µ«ÊÇÓÐʱҲÐèÒª¶Ô±àÒëÆ÷½øÐбØÒªµÄÉèÖá£
*************************************************** ......

Delphi ×ÊÔ´


 ¹ØÓÚIntraWeb³ÌÐòÔÚ±àÒëʱ³öÏÖ´íÎóµÄ½â¾ö·½·¨
´íÎóÌáʾ£º[Error] IWLicenseKey.pas(12): Undeclared identifier: 'SetLicenseKey'
´¦Àí·½·¨£º½øÈë²Ëµ¥Tools->Environment Options£¬Ñ¡Ôñ‘Library’£¬½«'Library path'²ÎÊýÖÐÓйØintrawebµÄĿ¼·ÅÔÚÇ°Ãæ¼´¿É¡£
ʹÓÃ&n ......

Delphi µÄRTTI»úÖÆÇ³Ì½(Ðø)

http://www.delphibbs.com/delphibbs/dispq.asp?LID=2421470
±¾ÎÄÊÇ¡¶Delphi µÄRTTI»úÖÆÇ³Ì½¡·µÄÐøÆª£¬ÉÏÆªµØÖ·ÔÚ£º
  http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610
±¾ÎÄÉÏÆª»ù±¾ÉÏÊÇ
RTTI ÈëÃŽéÉÜ£¬ÐøÆª½éÉÜÁËËùÓÐ TypInfo.pas Öеĺ¯Êý£¬¸½¼ÓÁË Classes.pas¡¢Graphics.pas¡¢Controls.pas
ÖÐµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ