04 2015 档案
JSON 数组的创建方式
摘要:procedure TFormDZMD.Button1Click(Sender: TObject);var ja: ISuperObject;begin ja := SA([]); ja.AsArray.Add(SO('1')); ShowMessage(ja.AsString); ja....
阅读全文
返回值为record类型的函 初始化 内存泄漏 复制
摘要:1、函数需要初始化,否则下次调用函数时,Result还是上次的值,可能会引起误判。但是不会有内存泄漏,即使包含string类型的成员。2、如果record包含的都是值类型的成员,比如integer,可以用ZeroMemory或者FillChar,函数多次调用时也不会内存泄漏。如果,包含string类...
阅读全文
QueryPerformanceFrequency
摘要:var c1: int64; t1, t2: int64; QueryPerformanceFrequency(c1); QueryPerformanceCounter(t1);// GetSellerNickFromSoldPage; QueryPer...
阅读全文
repeat 中的 continue
摘要:repeat a := -1; if A > 0 then ShowMessage('') else begin Caption := ''; Continue;//不是立即 向上 返回 执行,要先向下 检查循环条件 是否还 满足? e...
阅读全文
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...
阅读全文