张志峰的博客

摘要： //Char 类型与其编码值的转换:varb: Byte;c: Char;beginb := Ord('A'); {返回: 65}b := Ord(#65); {返回: 65}b := Ord($41); {返回: 65}b := Ord(#$41); {返回: 65}b := Byte('A'); {返回: 65}b := Byte(#65); {返回: 65}b := Byte($41); {返回: 65}b := Byte(#$41); {返回: 65}c := Chr(65); {返回: A }c := Chr($41); {返回: A }c := Ch 阅读全文

摘要： 需要给TcxTreelist的列添加图片，操作如下1.设置列， 设置Properties为ImageComboBox ，2. 设置Properties -> Items 添加内容 对应的增加相应的图片， value 为将来要填冲的内容， 设置为 ShorInt4. 填充数据的时候， 保证 字段为短整型，vNode.Values[colR_aaa.ItemIndex] := Ord(FieldByName(aaa).AsBoolean); //已完成vNode.Values[colR_bbb.ItemIndex] := Ord(FieldByName(bbb).AsBoolean); // 阅读全文

摘要： SELECT CASE WHEN aa.itax is NULL THEN aa.fskje ELSE aa.fskje / ( 1 + (tjob.itax / 100)) END nsjsk , (aa.fskje / 1.17) AS nsjsk1 , sccyd.*FROM scCyd INNER JOIN aa ON scCyd.ccydbh = aa.CCYDH LEFT JOIN aaON mcyd.CCYDH = aa.ccydh上面的语句想得到nsjsk的值，发现总是得到 和fskje一样的值，研究一下发现，( 1 + (tjob.itax / 100))默认为整形，把小数给 阅读全文