摘要： 今天做导出Excel的时候发现接收的是TcxGrid,我组件里面没有传入TcxGrid, 经研究发现 grdVMain:TcxGridDBBandedTableView grdVMain.Level是TcxGridLevel, 继续查看TcxGridLevel的源码,TcxGridLevel.Control就是TcxGrid了, ShowMessage( TcxGridLevel(grdVMai... 阅读全文

摘要： var j: Integer;begin j := StrToInt(edt1.Text); if (j > 1) and ((j and (j - 1)) = 0) then ShowMessage('是2的次方数'); 1. (j and (j - 1)) 这部份条件里的and是进行位与运算 这里假设j符合条件(4) 0100 = 4 (j) 0011 = 3 ... 阅读全文

摘要： 今天又想在数据字典里多增加一项新的功能，想想又要去增加字段，麻烦！翻了一下资料。决定让规范TAG，让TAG可以表示更多的含义 *前题TAG_STR里的数字只允行为2的次方 1.增加TAG的编制栏位[TAG_STR]，为字符串，可以生成TAG2.[TAG_STR]栏可以输入1 or 2 or 4 or 8 or 16 or 32 ... 只允许有数字和'or' 然后生成TAG， 数字只允行为2的次... 阅读全文