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