D:=new selobj();
  insert into D insertfields(["a"],["b"],["c"],["d"]) values(1,2,3,4);
  return D.data(); // return D.FData;
type selobj=class
  //******数组变量和下标变量********
  FData;
  FIndex;
  //******数据处理方法**************
  Public
  function create();
  begin
   FData:=array();
   FIndex:=-1;
  end;
  Function TSQLSetValue(Key,Value):Boolean;
  begin
  FData[FIndex][Key]:=Value;
  return true;
  end;
  Function TSQLInsert():Boolean;
  begin
  FIndex:=length(FData);
  return true;
  end;
  function data();
  begin
  return fdata;
  end;
end;