小编REA*_*OFO的帖子

我想根据搜索条件突出显示VirtualStringTree节点中的文本,例如来自bellow的示例:

有什么建议吗？

我有这张桌子equip_info：

   equip_id | fam_id | asset_no
  ----------|--------|-----------
    1       | 1      |  1
    2       | 1      |  2

我想equip_id从不同的地方插入一个新的fam_id并获得asset_no增量。

如果我这样做：

INSERT INTO equip_info (fam_id, asset_no)
VALUES (1, (SELECT MAX(asset_no) + 1 FROM equip_info WHERE fam_id = 1))

我得到以下结果：

   equip_id | fam_id | asset_no
  ----------|--------|-----------
    1       | 1      |  1
    2       | 1      |  2
    3       | 1      |  3

但是，如果我这样做：

INSERT INTO equip_info (fam_id, asset_no)
VALUES (2, (SELECT MAX(asset_no) + 1 FROM equip_info …

对于Delphi XE7中的一个奇怪的DatetTimePicker来说,这是一个简单的问题.

我有这个代码......

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker1.Date:= Date;
  memo1.Lines.Add(FloatToStr(Date) + ' vs ' + FloatToStr(DateTimePicker1.Date));
end;

今天,2015年3月18日,按下按钮后,我得到的结果是:

42081 vs 42081.846316956

如果我在5分钟后再次按下,我会得到相同的结果.为什么价值观不一样？

我有这些代码

TSql = class
  private
    FConnString: TStringList;
  public
    property ConnString: TStringList read FConnString write FConnString;
    constructor Create;
    destructor Destroy;
  end;

var 
  Sql: TSql;

...

implementation

{$R *.dfm}

constructor TSql.Create;
begin
  //inherited Create;
  FConnString:=TStringList.Create;
end;

destructor TSql.Destroy;
begin
  FConnString.Free;
  //inherited Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Sql.Create;
  Sql.ConnString.Add('something');
  showmessage(Sql.ConnString.Text);
  Sql.Destroy;
end;

在按下按钮后,为什么在创建FConnString时会产生内存泄漏？

.................................. ................ .................. ................................ .. ..................................