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´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb Serviceµ ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,comobj, OleServer,
ExcelXP;
type
TForm1 = class(TForm)
ADOConn: TADOConnection;
& ......
unit DvsLinkingClass;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
type
PRecLinkNode = ^RecLinkNode;
RecLinkNode = record
NodeMsg: String;
Counter: Integer;
Previous: PRecLinkNode;
Next: PRecLinkNode;
end;
TLinkingClass = class
......
Rem Delete Delphi temporary file
Rem ****************************
@echo Delete Delphi temporary file
@dir/w/s *.~*
@echo ÒÔÉÏΪµ±Ç°Ä¿Â¼¼°×ÓĿ¼ÁÙʱÎļþ,Çë°´ÈÎÒâ¼üÈ·ÈÏɾ³ý!
@pause
@for /r . %%a in (.) do @if exist "%%a\*.~*" del "%%a\*.~*"
@echo ɾ³ý³É¹¦!
@pause
Rem ************************* ......