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里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
Delphi 控制打开了诸多网页，但是有些有弹出窗口，想把他屏蔽掉(禁止弹窗),想通过禁用IE脚本的方式达到目的？如何实现？
（就象我们操作Internet选项中，禁止运行活动脚本一样）
转：
.改注册表，google下很容易� ......
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ?1996-2009 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by th ......
