摘要:
type TBytes = array of Byte; function Str2Bytes(const S: string): TBytes; var AnsiStr: AnsiString; begin if S = '' then begin Result := nil; // 或者设置为长 阅读全文
摘要:
if (AItem = cxGrid1DBTableView1cgsl) and (key in [106, 107, 109, 111]) then begin if AEdit <> nil then if AEdit.ClassType = TcxCalcEdit then //如果是计算器 阅读全文
摘要:
fastreport 合计 是先收集分析有没有写sum 之类的,所以如果是动态在其他事件里写 sum的话,是认不到的。 要在begin end 里事先创建出来。可以设置为不显示就可以 //查询有多少个码数 创建出来 with qry_ms do begin close; sql.text := fo 阅读全文