h_dbtab.pas

一个Delphi解释器的例子

Unit h_dbtab;
Interface
Uses Delphin, DBTABLES,DB,Classes,Controls{,asystem};
Implementation
{

To Convert Variant to object use VarToObj()
To Convert Object to variant use ObjToVar()

}

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

function myTTABLECREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TTABLE(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTTABLEBATCHMOVE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TTABLE(slf).BATCHMOVE(TDBDataSet(VarToObj(S[0])),S[1]);
End;

{--------------------}
function myTTABLEAPPLYRANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).APPLYRANGE;
End;
{--------------------}
function myTTABLECANCELRANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).CANCELRANGE;
End;
{--------------------}
function myTTABLEEDITKEY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).EDITKEY;
End;
{--------------------}
function myTTABLEEDITRANGEEND(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).EDITRANGEEND;
End;
{--------------------}
function myTTABLEEDITRANGESTART(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).EDITRANGESTART;
End;
{--------------------}
function myTTABLEFINDKEY(slf:TObject;var APropName:String;var s:array of variant):variant;
var A:Array[0..200] of tvarrec;
    maxp:integer;
begin
 VarToCOnsts(S[0],A,MaxP);
 Result := TTABLE(slf).FINDKEY(Slice(A,maxp));
 DisposeConsts(A,maxp);
End;
{--------------------}
function myTTABLEFINDNEAREST(slf:TObject;var APropName:String;var s:array of variant):variant;
var A:Array[0..200] of tvarrec;
    maxp:integer;
begin
 VarToCOnsts(S[0],A,MaxP);
 TTABLE(slf).FINDNEAREST(Slice(A,maxp));
 DisposeConsts(A,maxp);
End;
{--------------------}
function myTTABLEGETINDEXNAMES(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
TTABLE(slf).GETINDEXNAMES(TStrings(VarToObj(S[0])));
End;
{--------------------}
function myTTABLEGOTOCURRENT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).GOTOCURRENT(TTable(VarToObj(S[0])));
End;
{--------------------}
function myTTABLEGOTOKEY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TTABLE(slf).GOTOKEY;
End;
{--------------------}
function myTTABLEGOTONEAREST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).GOTONEAREST;
End;
{--------------------}
function myTTABLESETKEY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).SETKEY;
End;
{--------------------}
function myTTABLESETRANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
var A,A1:Array[0..200] of tvarrec;
    maxp,maxp1:integer;
begin
 VarToCOnsts(S[0],A,MaxP); VarToCOnsts(S[1],A1,MaxP1);
  TTABLE(slf).SETRANGE(Slice(A,maxp),Slice(A1,maxp1));
 DisposeConsts(A,maxp);
 DisposeConsts(A1,maxp1);
End;
{--------------------}
function myTTABLESETRANGEEND(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).SETRANGEEND;
End;
{--------------------}
function myTTABLESETRANGESTART(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TTABLE(slf).SETRANGESTART;
End;
{--------------------}
Function TTABLEget_INDEXFIELDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).INDEXFIELDCOUNT;
End;

Function TTABLEget_KEYEXCLUSIVE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).KEYEXCLUSIVE;
End;

Function TTABLEset_KEYEXCLUSIVE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).KEYEXCLUSIVE:=S[0];
End;
{--------------------}
Function TTABLEget_KEYFIELDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).KEYFIELDCOUNT;
End;

Function TTABLEset_KEYFIELDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).KEYFIELDCOUNT:=S[0];
End;
{--------------------}
Function TTABLEget_INDEXFIELDNAMES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).INDEXFIELDNAMES;
End;

Function TTABLEset_INDEXFIELDNAMES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).INDEXFIELDNAMES:=S[0];
End;
{--------------------}
Function TTABLEget_INDEXFILES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TTABLE(slf).INDEXFILES);
End;

{--------------------}
Function TTABLEget_INDEXNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).INDEXNAME;
End;

Function TTABLEset_INDEXNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).INDEXNAME:=S[0];
End;
{--------------------}
Function TTABLEget_MASTERFIELDS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).MASTERFIELDS;
End;

Function TTABLEset_MASTERFIELDS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).MASTERFIELDS:=S[0];
End;
{--------------------}
Function TTABLEget_MASTERSOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TTABLE(slf).MASTERSOURCE);
End;

Function TTABLEset_MASTERSOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).MASTERSOURCE:=TDataSource(VarToOBj(S[0]));
End;
{--------------------}
Function TTABLEget_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).READONLY;
End;

Function TTABLEset_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).READONLY:=S[0];
End;
{--------------------}
Function TTABLEget_TABLENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).TABLENAME;
End;

Function TTABLEset_TABLENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).TABLENAME:=S[0];
End;
{--------------------}
Function TTABLEget_UPDATEMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TTABLE(slf).UPDATEMODE;
End;

Function TTABLEset_UPDATEMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).UPDATEMODE:=S[0];
End;
{--------------------}
Function TTABLEget_UPDATEOBJECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TTABLE(slf).UPDATEOBJECT);
End;

Function TTABLEset_UPDATEOBJECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TTABLE(slf).UPDATEOBJECT:=TDataSetUpdateObject(VarToOBj(S[0]));
End;
{--------------------}
function myTBATCHMOVEEXECUTE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TBATCHMOVE(slf).EXECUTE;
End;
{--------------------}
Function TBATCHMOVEget_CHANGEDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).CHANGEDCOUNT;
End;

{--------------------}
Function TBATCHMOVEget_KEYVIOLCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).KEYVIOLCOUNT;
End;
{--------------------}
Function TBATCHMOVEget_MOVEDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).MOVEDCOUNT;
End;
{--------------------}
Function TBATCHMOVEget_PROBLEMCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).PROBLEMCOUNT;
End;
{--------------------}
Function TBATCHMOVEget_COMMITCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).COMMITCOUNT;
End;

Function TBATCHMOVEget_MAPPINGS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TBATCHMOVE(slf).MAPPINGS);
End;

Function TBATCHMOVEset_MAPPINGS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).MAPPINGS:=TStrings(VarToObj(S[0]));
End;
{--------------------}
Function TBATCHMOVEget_MODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBATCHMOVE(slf).MODE;
End;

Function TBATCHMOVEset_MODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBATCHMOVE(slf).MODE:=S[0];
End;

function myTPARAMASSIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAM(slf).ASSIGN(TParam(VarTOObj(S[0])));
End;
{--------------------}
function myTPARAMASSIGNFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAM(slf).ASSIGNFIELD(TField(VarToObj(S[0])));
End;
{--------------------}
function myTPARAMASSIGNFIELDVALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAM(slf).ASSIGNFIELDVALUE(TField(VarToObj(S[0])),S[1]);
End;
{--------------------}


function myTPARAMCLEAR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAM(slf).CLEAR;
End;
{--------------------}
{function myTPARAMGETDATA(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAM(slf).GETDATA(S[0]);
End;}
{--------------------}
function myTPARAMGETDATASIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TPARAM(slf).GETDATASIZE;
End;
{--------------------}
{function myTPARAMSETDATA(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPARAM(slf).SETDATA(S[0]);
End;}
{--------------------}
Function TPARAMget_ASBCD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASBCD;
End;

Function TPARAMset_ASBCD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASBCD:=S[0];
End;
{--------------------}
Function TPARAMget_ASBOOLEAN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASBOOLEAN;
End;

Function TPARAMset_ASBOOLEAN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASBOOLEAN:=S[0];
End;
{--------------------}
Function TPARAMget_ASCURRENCY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASCURRENCY;
End;

Function TPARAMset_ASCURRENCY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASCURRENCY:=S[0];
End;
{--------------------}
Function TPARAMget_ASDATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASDATE;
End;

Function TPARAMset_ASDATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPARAM(slf).ASDATE:=S[0];
End;
{--------------------}
Function TPARAMget_ASDATETIME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPARAM(slf).ASDATETIME;
End;

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

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