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;
´úÂëÖкìÉ«µÄÒ»ÐеÄ×÷Óãº
Èç¹ûÄãÔËÐÐÒ»¸ö·Ç³£ºÄʱµÄÑ»·£¬ÄÇôÔÚÕâ¸öÑ»·½áÊøÇ°£¬ÄãµÄ³ÌÐò¿ÉÄܲ»»áÏìÓ¦ÈκÎʼþ£¬Äã°´°´Å¥Ã»Óз´Ó¦£¬³ÌÐòÉèÖÃÎÞ·¨»æÖÆ´°Ì壬¿´ÉÏÈ¥¾ÍÈçͬËÀÁËÒ»Ñù£¬
ÕâÓÐʱ²»ÊǺܷ½±ã£¬ÀýÈçÓÚÖÕֹѻ·µÄ»ú»á¶¼Ã»ÓÐÁË¡£ÕâʱÄã¾Í¿ÉÒÔÔÚÑ»·ÖмÓÉÏÕâôһ¾ä£¬Ã¿´Î³ÌÐòÔËÐе½Õâ¾äʱ£¬³ÌÐò¾Í»áÈÃϵͳÏìÓ¦Ò»ÏÂÏûÏ¢£¬´Ó¶øÊ¹ÄãÓлú
»á°´°´Å¥£¬´°ÌåÓлú»á»æÖÆ¡£
Ïà¹ØÎĵµ£º
Borland³öÆ·µÄDelphi£¬ÓÐ×ÅÉÁµç°ãµÄ±àÒëËÙ¶È£¬µ«ÊÇÔÚ½çÃæ¿Ø¼þʹÓý϶ࡢ¹¤³ÌÏîÄ¿½Ï´óµÄʱºò£¬±àÒëÒ»¸ö¹¤³ÌÈÔÐèÒªÒ»¶Îʱ¼ä£¬´ò¿ªÅÓ´óµÄDelphi IDE£¬Ò²ÐèҪʱ¼ä¡£Æäʵ£¬ÔÚÒ»¸ö¹¤³Ì¿ª·¢½áÊø£¬µ÷ÊÔÍê³ÉÖ®ºóµÄRelease±àÒ룬ÍêÈ«¿ÉÒÔÓÃÃüÁîÐÐÀ´Ö´ÐУ¬ÒòΪDelphiµÄ±àÒëÆ÷²ÎÊý²»ÏñC++±àÒëÆ÷ÄÇÑù¸´ÔÓ¡£
±ÊÕß°ÑDelphiÁª»úÊÖ²á ......
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;
& ......
program PureAPIWindow;
uses
SysUtils,
Windows,
Messages;
const
WinClassName = 'DvsClass';
StrOut = 'Davis TextOut';
//´°¿Ú»Øµ÷º¯Êý
function MyWinProc(
hWindow: HWND;
aMessage: UINT;
WParam: WPARAM;
LParam: LPARAM): LRESULT; stdcall; export;
......
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
ÖÐµÄ ......
Delphi×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»
ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
s:string;
p:pchar;
a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ ......