delphiÍç¼²ÊÕ¼¯
delphiÍç¼²ÊÕ¼¯
delphi·¢²¼ÒѾʮ¶àÄêÁË£¬ºÜ¶àbug һֱδµÃµ½ÐÞÕý£¬¿´¿´´ó¼Ò¶¼Óöµ½Ê²Ã´Íç¼²
1. delphi7¿ªÊ¼¼Ì³ÐµÄdbgrid²»ÄÜɾ³ýмӵÄÁУ¬Ö±µ½delphi2010 »¹´æÔÚ (±ØÈ»)
2. delphi5¿ªÊ¼Óöµ½ Ôö¼ÓеÄʼþÇý¶¯³ÌÐòºó°Ñ ×îºó µÄ .end ¸ãÂÒÌ×,Ö±µ½delphi2010 »¹´æÔÚ (¾³£)
¹ÛÍûÒ»ÏÂ
ºÇºÇ£¬ÍæµÄÉÙ¡£»¹²»ÖªµÀÓÐbug¡£
£¨Ò²ÐíÊÇ5ÍæµÄ·½ÏòÓÚbug²Á¼ç¶ø¹ýÁ˰ɣ©
Delphi(Pascal) code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IniFiles;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
FCacheConfigList: THashedStringlist;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
t: Cardinal;
i: Integer;
begin
t := GetTickCount;
for i := 0 to 10000 do
FCacheConfigList.Add(IntToStr(i + 1));
FCacheConfigList.Sort;{ÎÊÌâÔÚÕâÀµÚÒ»´ÎÅÅÐòºÜ¿ì£¬Èç¹ûÔÙµã»÷Ò»´ÎButton1¾ÍÅÅÐòºÜºÄʱ£¬µÈ´ý´óÔ¼5·ÖÖÓÒÔºóÅÅÐòÍê³É£¬ÔÙµã»÷button1¾ÍûÎÊÌâÁË}
ShowMessage(IntToStr(GetTickCount - t));
ShowMessage(IntToStr(FCacheConfigList.Count));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FCacheConfigList := THashedStr
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
ûѧ¹ýDELPHI¡£¡£ÒòΪҪά»¤Ò»¸ödelphiµÄÏîÄ¿£¬´ó¼Ò°ï°ïæ
½«±¾µØÊÓÆµÔÚÍøÂçÉÏ´«ËÍ¡£¡£Óõ½µÄÊÇsocket¡£¡£
ÏëÎÊÏ ¿ÉÒÔ½«ÊÓÆµ×ª»»³ÉʲôÑùµÄ¸ñʽ¡£¡£
µ±È»¿ÉÒÔ¡£±ÈÈç°ÑÊÓÆµÁ÷ת³ÉÊ®Áù½øÖÆÔÙдµ ......
ÎÒ×ÔѧµÄD7£¬·¢ÏֺܻìÂÒ£¬ÌرðÊÇ·ÃÎÊACCESSµÄ·½·¨Óкö࣬ÀýÈç¿ÉÒÔÓÃadoconnection¿Ø¼þÁ¬½Ó¿â£¬»¹¿ÉÒÔÓÃ×Ö·û´®£¬Ôöɾ¸ÄµÄ·½Ê½Ò²ºÃ¼¸ÖÖ£¬¶¼²»ÖªµÀ¸ÃÓÃÄÄÖÖ·½·¨ÁË¡£
ÄÄλÄܸøÎÒµãÀý×Ó£º
ÐèÒªµÄÊÇÏÔʾ¼Ç¼¡¢Ìí¼Ó¼Ç¼¡ ......