04 2015 档案
JSON 数组的创建方式
摘要:procedure TFormDZMD.Button1Click(Sender: TObject);var ja: ISuperObject;begin ja := SA([]); ja.AsArray.Add(SO('1')); ShowMessage(ja.AsString); ja.... 阅读全文
posted @ 2015-04-24 14:20 宝兰 阅读(1433) 评论(0) 推荐(0) 编辑
返回值为record类型的函 初始化 内存泄漏 复制
摘要:1、函数需要初始化,否则下次调用函数时,Result还是上次的值,可能会引起误判。但是不会有内存泄漏,即使包含string类型的成员。2、如果record包含的都是值类型的成员,比如integer,可以用ZeroMemory或者FillChar,函数多次调用时也不会内存泄漏。如果,包含string类... 阅读全文
posted @ 2015-04-17 17:28 宝兰 阅读(226) 评论(0) 推荐(0) 编辑
QueryPerformanceFrequency
摘要:var c1: int64; t1, t2: int64; QueryPerformanceFrequency(c1); QueryPerformanceCounter(t1);// GetSellerNickFromSoldPage; QueryPer... 阅读全文
posted @ 2015-04-17 13:36 宝兰 阅读(193) 评论(0) 推荐(0) 编辑
repeat 中的 continue
摘要:repeat a := -1; if A > 0 then ShowMessage('') else begin Caption := ''; Continue;//不是立即 向上 返回 执行,要先向下 检查循环条件 是否还 满足? e... 阅读全文
posted @ 2015-04-17 13:35 宝兰 阅读(138) 评论(0) 推荐(0) 编辑
Webbrowser checkbox
摘要:vari:integer;t:OleVariant;begint:=EmbeddedWB1.Document;fori:=0tot.all.length-1dobeginift.all.item(i).tagName='INPUT'thenbeginift.all.item(i).type='che... 阅读全文
posted @ 2015-04-16 21:26 宝兰 阅读(323) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示