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

Delphi¶¨Ê±Showmessageʼþ

ÔÚDelphiÖУ¬µ÷ÓÃShowmessageºó£¬ÈçºÎʹµ¯³öµÄ¶Ô»°¿òÔÚÒ»ÃëÖÓºó×Ô¶¯¹Ø±Õ£¬¶ø²»ÓÃÊÖ¶¯È¥µãÈ·¶¨
1:ÓÃtimer¿Ø¼þµÄº¯Êý
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage(AHandle,
WM_CLOSE, 0, 0);
end;



Ïà¹ØÎĵµ£º

delphi Format Type

Format
  typeµÄ¿ÉÄÜÖµÓÐÏÂÁÐÕâЩ£º
  (1) d ÓзûºÅÊ®½øÖÆÊý
        Args±ØÐëÊÇÓзûºÅÕûÐÍÊý¡£Èç¹ûÔÚ¸ñʽ»¯×Ö·û´®Öл¹¼ÓÈëÁË["." prec]£¬ÔòÈç¹ûArgs
        µÄ³¤¶ÈÈç¹ûСÓÚ¸ø³öµÄ¾«¶ÈÊýʱ£¬ÔÚǰ±ßÌî²¹0£»Èç¹û´óÓÚ¾«¶ÈÊý£¬°´Êµ¼Ê³¤¶ ......

Delphi Ö®ÔËËã·ûÖØÔØ

Delphi 7Ö®ºóµÄ°æ±¾£¬Ôö¼ÓÁËÔËËã·ûµÄÖØÔØ¡£ËäÈ»²»¾¡ÈËÒ⣨ÐèÒªÐ´ÌØ¶¨Ó¢ÎÄ£©£¬µ«ÓÐ×ܱÈûÓÐÇ¿¡£
Àý£º
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  T3DPoint = record
    X, Y, Z: Doub ......

delphi¼¼ÇɼǼ


#13»Ø³µ»»ÐÐ
½«form2ÄÚÈݼÓÈëµ½form1Áбí¿ò£ºÔÚform2Àform1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')½«chinese.txtÎļþÄÚÈÝÔØÈëÁбí¿òÖС£µ«Ç°ÌáÊÇÒªÕû¸ö´°Ìå´´½¨Ê±ºò¼ÓÔØµ¼È룬˫»÷Õû¸ö´°Ìåprocedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese. ......

DelphiÖÐFormat×Ö·û´®ËµÃ÷

DelphiÖÐFormat×Ö·û´®ËµÃ÷
function Format(const Format: string; const Args: array of const):
string;
Format×Ö·û´®ËµÃ÷£º
"%" [index ":"] ["-"] [width] ["." prec] type
(1)
¸ñʽ»¯×Ö·û´®±ØÐëÒÔ%¿ªÍ·
(2) [index ":"]
Ë÷ÒýÖ¸µÄÊÇArgs²ÎÊýÁбíÖÐÒªÏÔʾµÄÿһÏîµÄÐòºÅ¡£±ÈÈ磺ArgsÊÇ
  ......

DelphiÖеÄÊý×é

²»ÂÛÊý×éÔªËØÊÇʲôÀàÐÍ£¬¾²Ì¬Êý×éµÄ¾Ö²¿±äÁ¿×Ü»áÔÚÕ»ÉÏ·ÖÅä¡£Èç¹û¶ÑÕ»´óС²»¹»½«»áµ¼ÖÂÒì³£¡£ÏÂÀý°µ²Ø×ÅÒ»¸öΣÏÕµÄbug
procedure stackover;
var
s:array [0..4100] of string[255];
begin
end; 
delphiĬÈÏÕ»×î´óΪ$100000×Ö½Ú£¬ÉÏÀýÖеÄÕ»ÉÏ·ÖÅäµÄ´óÏÀΪ256*4100>$10000¡£²âÊÔ±ØÈ»»á³öÏÖÒì³£Stack overf ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ