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
相关问答：
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
使用xml.responseText可以获取网页源码,但是再次 ......
MessageBox(0,PChar('L'),PChar('LL'),0);
结果：PChar('LL') 显示 ，但PChar('L') 不显示．
var
p1, p2: PChar;
begin
p1 := PChar('L');
p2 := PChar('LL');
MessageBo ......
服务器是一个网络设备，目前在内网，IP固定为192.168.1.123，开放9707~9738共31个连续端口(用XP自带的超级终端试过了，这些端口都可以正常连接、通讯)。
用TcpClient控件写的客户端软件，就9730这个端口无法建立连� ......
