h_dbtab.pas

一个Delphi解释器的例子

Begin
TPARAM(slf).ASFLOAT:=S[0];
End;
{--------------------}
Function TPARAMget_ASINTEGER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASINTEGER;
End;

Function TPARAMset_ASINTEGER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASINTEGER:=S[0];
End;
{--------------------}
Function TPARAMget_ASSMALLINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASSMALLINT;
End;

Function TPARAMset_ASSMALLINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASSMALLINT:=S[0];
End;
{--------------------}
Function TPARAMget_ASSTRING(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASSTRING;
End;

Function TPARAMset_ASSTRING(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASSTRING:=S[0];
End;
{--------------------}
Function TPARAMget_ASTIME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASTIME;
End;

Function TPARAMset_ASTIME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASTIME:=S[0];
End;
{--------------------}
Function TPARAMget_ASWORD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASWORD;
End;

Function TPARAMset_ASWORD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASWORD:=S[0];
End;
{--------------------}
Function TPARAMget_BOUND(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).BOUND;
End;

Function TPARAMset_BOUND(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).BOUND:=S[0];
End;
{--------------------}
Function TPARAMget_DATATYPE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).DATATYPE;
End;

Function TPARAMset_DATATYPE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).DATATYPE:=S[0];
End;
{--------------------}
Function TPARAMget_ISNULL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ISNULL;
End;

{--------------------}
Function TPARAMget_NAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).NAME;
End;

Function TPARAMset_NAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).NAME:=S[0];
End;
{--------------------}
Function TPARAMget_PARAMTYPE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).PARAMTYPE;
End;

Function TPARAMset_PARAMTYPE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).PARAMTYPE:=S[0];
End;
{--------------------}
Function TPARAMget_TEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).TEXT;
End;

Function TPARAMset_TEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).TEXT:=S[0];
End;
{--------------------}
Function TPARAMget_VALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).VALUE;
End;

Function TPARAMset_VALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).VALUE:=S[0];
End;
{--------------------}
function myTPARAMSCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TPARAMS(slf).CREATE);
End;
{--------------------}
function myTPARAMSASSIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAMS(slf).ASSIGN(TPersistent(VarToObj(S[0])));
End;
{--------------------}
function myTPARAMSASSIGNVALUES(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAMS(slf).ASSIGNVALUES(TParams(VarToObj(S[0])));
End;
{--------------------}
function myTPARAMSADDPARAM(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAMS(slf).ADDPARAM(TParam(VarToObj(S[0])));
End;
{--------------------}
function myTPARAMSREMOVEPARAM(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAMS(slf).REMOVEPARAM(TParam(VarToObj(S[0])));
End;
{--------------------}
function myTPARAMSCREATEPARAM(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := ObjToVar(TPARAMS(slf).CREATEPARAM(S[0],S[1],S[2]));
End;
{--------------------}
function myTPARAMSCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TPARAMS(slf).COUNT;
End;
{--------------------}
function myTPARAMSCLEAR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAMS(slf).CLEAR;
End;
{--------------------}
function myTPARAMSGETPARAMLIST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAMS(slf).GETPARAMLIST(TList(VarToObj(S[0])),S[1]);
End;
{--------------------}
function myTPARAMSISEQUAL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TPARAMS(slf).ISEQUAL(TParams(VarToObj(S[0])));
End;
{--------------------}
function myTPARAMSPARAMBYNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := ObjToVar(TPARAMS(slf).PARAMBYNAME(S[0]));
End;
{--------------------}

function myTQUERYCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TQUERY(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTQUERYEXECSQL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TQUERY(slf).EXECSQL;
End;
{--------------------}
function myTQUERYPARAMBYNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := ObjToVar(TQUERY(slf).PARAMBYNAME(S[0]));
End;
{--------------------}
function myTQUERYPREPARE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TQUERY(slf).PREPARE;
End;
{--------------------}
function myTQUERYUNPREPARE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TQUERY(slf).UNPREPARE;
End;
{--------------------}
Function TQUERYget_PREPARED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).PREPARED;
End;

Function TQUERYset_PREPARED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TQUERY(slf).PREPARED:=S[0];
End;
{--------------------}
Function TQUERYget_PARAMCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).PARAMCOUNT;
End;

{--------------------}
Function TQUERYget_TEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).TEXT;
End;

{--------------------}

Function TQUERYget_ROWSAFFECTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).ROWSAFFECTED;
End;

{--------------------}
Function TQUERYget_CONSTRAINED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).CONSTRAINED;
End;

Function TQUERYset_CONSTRAINED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TQUERY(slf).CONSTRAINED:=S[0];
End;
{--------------------}
Function TQUERYget_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TQUERY(slf).DATASOURCE);
End;

Function TQUERYset_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TQUERY(slf).DATASOURCE:=TDataSource(VarToObj(S[0]));
End;
{--------------------}
Function TQUERYget_PARAMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TQUERY(slf).PARAMS[s[0]]);
End;
{--------------------}
Function TQUERYget_REQUESTLIVE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).REQUESTLIVE;
End;

Function TQUERYset_REQUESTLIVE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TQUERY(slf).REQUESTLIVE:=S[0];
End;
{--------------------}
Function TQUERYget_SQL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TQUERY(slf).SQL);
End;

Function TQUERYset_SQL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TQUERY(slf).SQL:=TStrings(VarToObj(S[0]));
End;
{--------------------}
Function TQUERYget_UPDATEOBJECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TQUERY(slf).UPDATEOBJECT);
End;

Function TQUERYset_UPDATEOBJECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TQUERY(slf).UPDATEOBJECT:=TDataSetUpdateObject(VarToObj(S[0]));
End;
{--------------------}
function myTUPDATESQLCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjTOVar(TUPDATESQL(slf).CREATE(TComponent(VarToOBj(S[0]))));
End;
{--------------------}
function myTUPDATESQLAPPLY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TUPDATESQL(slf).APPLY(S[0]);
End;
{--------------------}
function myTUPDATESQLEXECSQL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TUPDATESQL(slf).EXECSQL(S[0]);
End;
{--------------------}
function myTUPDATESQLSETPARAMS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TUPDATESQL(slf).SETPARAMS(S[0]);
End;
{--------------------}
Function TUPDATESQLget_DATASET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TUPDATESQL(slf).DATASET);
End;

Function TUPDATESQLset_DATASET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TUPDATESQL(slf).DATASET:=TDBDataSet(VarToObj(S[0]));
End;
{--------------------}
Function TUPDATESQLget_MODIFYSQL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TUPDATESQL(slf).MODIFYSQL);
End;

Function TUPDATESQLset_MODIFYSQL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TUPDATESQL(slf).MODIFYSQL:=TStrings(VarToObj(S[0]));
End;
{--------------------}
Function TUPDATESQLget_INSERTSQL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TUPDATESQL(slf).INSERTSQL);
End;

Function TUPDATESQLset_INSERTSQL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TUPDATESQL(slf).INSERTSQL:=TStrings(VarToObj(S[0]));
End;
{--------------------}
Function TUPDATESQLget_DELETESQL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TUPDATESQL(slf).DELETESQL);
End;

Function TUPDATESQLset_DELETESQL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TUPDATESQL(slf).DELETESQL:=TStrings(VarToObj(S[0]));
End;

{--------------------}
Function TQUERYget_UPDATEMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).UPDATEMODE;
End;

Function TQUERYset_UPDATEMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TQUERY(slf).UPDATEMODE:=S[0];
End;
{--------------------}
Function TQUERYget_LOCAL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).LOCAL;
End;

Function TQUERYget_PARAMCHECK(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TQUERY(slf).PARAMCHECK;
End;

Function TQUERYset_PARAMCHECK(slf:TObject;var APropName:String;var s:array of variant):variant;