2019年11月14日
superObject D类型的 小数默认位数
摘要： jo := SO(); jo.D['aa'] := StrToFloatDef('9.00', 0); Memo1.Text := jo.AsString //{"aa":9.} 只是一个点 阅读全文
posted @ 2019-11-14 20:56 宝兰 阅读(226) 评论(0) 推荐(0) 编辑
AddObject ,把字符串 作为对象
摘要： procedure TForm1.Button1Click(Sender: TObject);var PKey: PChar; S: string;begin S := '你好'; Memo1.Clear; PKey := StrAlloc(SizeOf(Char) * length(S)); St 阅读全文
posted @ 2019-11-14 19:48 宝兰 阅读(152) 评论(0) 推荐(0) 编辑
//目前是1月 ，要查去年12月的
摘要： if MonthOf(Date) = 1 then //目前是1月 ，要查去年12月的 Y := -1 //要显示去年 else Y := 0; for I := 12 downto 1 do cmbMonth.Items.Add(Format('%d-%.2d', [YearOf(Date) + Y, I])); if Y = 0 then cmbMonth.ItemIndex := cmbMo 阅读全文
posted @ 2019-11-14 19:47 宝兰 阅读(106) 评论(0) 推荐(0) 编辑
MD5单元里 Char定义和 IDE unit System; 冲突
该文被密码保护。 阅读全文
posted @ 2019-11-14 18:28 宝兰 阅读(0) 评论(0) 推荐(0) 编辑
DBGridEh1的SumList
该文被密码保护。 阅读全文
posted @ 2019-11-14 16:17 宝兰 阅读(1) 评论(0) 推荐(0) 编辑
DelphiSpeedUp 禁用
摘要： 涉及到 2个地方，一个 IDE BPL, 一个专家 DLL 阅读全文
posted @ 2019-11-14 09:36 宝兰 阅读(201) 评论(0) 推荐(0) 编辑