摘要： procedure TForm1.Button1Click(Sender: TObject);var I: Integer;begin for I := DBGridEh1.SelectedRows.Count - 1 downto 0 do begin DBGridEh1.DataSo... 阅读全文

摘要： function outtest(out jo: ISuperObject; out s: string):Boolean;begin//进入函数时 jo =nil ErrStr = ''Result := True; jo := SA([]); s := 's';end;var json: i... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;typ... 阅读全文

摘要： AppendRecord 方法，添加记录的字段到数据库里时，是按照IDE里永久字段的顺序，不是数据库表里的字段顺序。自动编号 字段，以nil为值。日期时间 字段，直接now 写法 阅读全文

摘要： http://www.fx114.net/qa-29-3439.aspx回复于： 2011-10-11 15:02:08unit DBGridEh; 把下面这个函数替换成这样procedure TDBGridInplaceEdit.WMPaste(var Message: TMessage);var... 阅读全文

摘要： procedure TFormDZMD.Button1Click(Sender: TObject);var ja: ISuperObject;begin ja := SA([]); ja.AsArray.Add(SO('1')); ShowMessage(ja.AsString); ja.... 阅读全文

摘要： 1、函数需要初始化，否则下次调用函数时，Result还是上次的值，可能会引起误判。但是不会有内存泄漏，即使包含string类型的成员。2、如果record包含的都是值类型的成员，比如integer，可以用ZeroMemory或者FillChar，函数多次调用时也不会内存泄漏。如果，包含string类... 阅读全文

摘要： var c1: int64; t1, t2: int64; QueryPerformanceFrequency(c1); QueryPerformanceCounter(t1);// GetSellerNickFromSoldPage; QueryPer... 阅读全文

摘要： repeat a := -1; if A > 0 then ShowMessage('') else begin Caption := ''; Continue;//不是立即 向上 返回 执行，要先向下 检查循环条件 是否还 满足？ e... 阅读全文

摘要： vari:integer;t:OleVariant;begint:=EmbeddedWB1.Document;fori:=0tot.all.length-1dobeginift.all.item(i).tagName='INPUT'thenbeginift.all.item(i).type='che... 阅读全文