h_db.pas

一个Delphi解释器的例子

 TDBDATASET(slf).CANCELUPDATES;
End;
{--------------------}
function myTDATASETREVERTRECORD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBDATASET(slf).REVERTRECORD;
End;
{--------------------}
Function TDATASETget_BOF(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BOF;
End;

{--------------------}
Function TDATASETget_BOOKMARK(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BOOKMARK;
End;

Function TDATASETset_BOOKMARK(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).BOOKMARK:=S[0];
End;
{--------------------}
Function TDATASETget_CANMODIFY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).CANMODIFY;
End;

{--------------------}
Function TDATASETget_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDATASET(slf).DATASOURCE);
End;

{--------------------}
Function TDATASETget_EOF(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).EOF;
End;

{--------------------}
Function TDATASETget_FIELDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).FIELDCOUNT;
End;
{--------------------}
Function TDATASETget_FOUND(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).FOUND;
End;

{--------------------}
(*Function TDATASETget_HANDLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).HANDLE;
End;

Function TDATASETset_HANDLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).HANDLE:=S[0];
End;
*)
{--------------------}
Function TDATASETget_MODIFIED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).MODIFIED;
End;

{--------------------}
Function TDATASETget_RECORDCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).RECORDCOUNT;
End;

{--------------------}
Function TDATASETget_STATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).STATE;
End;

{--------------------}
Function TDATASETget_UPDATEOBJECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result :=ObjToVar( TDBDATASET(slf).UPDATEOBJECT);
End;

Function TDATASETset_UPDATEOBJECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBDATASET(slf).UPDATEOBJECT:=TDataSetUpdateObject(VarToObj(S[0]));
End;
{--------------------}
Function TDATASETget_UPDATESPENDING(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBDATASET(slf).UPDATESPENDING;
End;

{--------------------}
Function TDATASETget_ACTIVE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).ACTIVE;
End;

Function TDATASETset_ACTIVE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).ACTIVE:=S[0];
End;
{--------------------}
Function TDATASETget_CACHEDUPDATES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBDATASET(slf).CACHEDUPDATES;
End;

Function TDATASETset_CACHEDUPDATES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBDATASET(slf).CACHEDUPDATES:=S[0];
End;
{--------------------}
Function TDATASETget_FILTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).FILTER;
End;

Function TDATASETset_FILTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).FILTER:=S[0];
End;
{--------------------}
Function TDATASETget_FILTERED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).FILTERED;
End;

Function TDATASETset_FILTERED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).FILTERED:=S[0];
End;
{--------------------}
(*Function TDATASETget_FILTEROPTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).FILTEROPTIONS;
End;

Function TDATASETset_FILTEROPTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).FILTEROPTIONS:=S[0];
End;
*)
{--------------------}
(*#########
Function TDATASETget_BEFOREOPEN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BEFOREOPEN;
End;

Function TDATASETset_BEFOREOPEN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).BEFOREOPEN:=S[0];
End;
{--------------------}
Function TDATASETget_AFTEROPEN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).AFTEROPEN;
End;

Function TDATASETset_AFTEROPEN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).AFTEROPEN:=S[0];
End;
{--------------------}
Function TDATASETget_BEFORECLOSE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BEFORECLOSE;
End;

Function TDATASETset_BEFORECLOSE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).BEFORECLOSE:=S[0];
End;
{--------------------}
Function TDATASETget_AFTERCLOSE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).AFTERCLOSE;
End;

Function TDATASETset_AFTERCLOSE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).AFTERCLOSE:=S[0];
End;
{--------------------}
Function TDATASETget_BEFOREINSERT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BEFOREINSERT;
End;

Function TDATASETset_BEFOREINSERT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).BEFOREINSERT:=S[0];
End;
{--------------------}
Function TDATASETget_AFTERINSERT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).AFTERINSERT;
End;

Function TDATASETset_AFTERINSERT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).AFTERINSERT:=S[0];
End;
{--------------------}
Function TDATASETget_BEFOREEDIT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BEFOREEDIT;
End;

Function TDATASETset_BEFOREEDIT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).BEFOREEDIT:=S[0];
End;
{--------------------}
Function TDATASETget_AFTEREDIT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).AFTEREDIT;
End;

Function TDATASETset_AFTEREDIT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).AFTEREDIT:=S[0];
End;
{--------------------}
Function TDATASETget_BEFOREPOST(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BEFOREPOST;
End;

Function TDATASETset_BEFOREPOST(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).BEFOREPOST:=S[0];
End;
{--------------------}
Function TDATASETget_AFTERPOST(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).AFTERPOST;
End;

Function TDATASETset_AFTERPOST(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).AFTERPOST:=S[0];
End;
{--------------------}
Function TDATASETget_BEFORECANCEL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BEFORECANCEL;
End;

Function TDATASETset_BEFORECANCEL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).BEFORECANCEL:=S[0];
End;
{--------------------}
Function TDATASETget_AFTERCANCEL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).AFTERCANCEL;
End;

Function TDATASETset_AFTERCANCEL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).AFTERCANCEL:=S[0];
End;
{--------------------}
Function TDATASETget_BEFOREDELETE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).BEFOREDELETE;
End;

Function TDATASETset_BEFOREDELETE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).BEFOREDELETE:=S[0];
End;
{--------------------}
Function TDATASETget_AFTERDELETE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASET(slf).AFTERDELETE;
End;

Function TDATASETset_AFTERDELETE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASET(slf).AFTERDELETE:=S[0];
End;
{--------------------}
(*function myTDBDATASETCHECKOPEN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDBDATASET(slf).CHECKOPEN(S[0]);
End;
*){--------------------}
Function TDBDATASETget_DATABASE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBDATASET(slf).DATABASE);
End;
{--------------------}
Function TDBDATASETget_DATABASENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBDATASET(slf).DATABASENAME;
End;

Function TDBDATASETset_DATABASENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBDATASET(slf).DATABASENAME:=S[0];
End;
{--------------------}
function myTDATASOURCEEDIT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATASOURCE(slf).EDIT;
End;
{--------------------}
function myTDATASOURCEISLINKEDTO(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TDATASOURCE(slf).ISLINKEDTO(TDataSet(varToObj(S[0])));
End;
{--------------------}
Function TDATASOURCEget_AUTOEDIT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDATASOURCE(slf).AUTOEDIT;
End;

Function TDATASOURCEset_AUTOEDIT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASOURCE(slf).AUTOEDIT:=S[0];
End;
{--------------------}
Function TDATASOURCEget_DATASET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDATASOURCE(slf).DATASET);
End;

Function TDATASOURCEset_DATASET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASOURCE(slf).DATASET:=TDataSet(VarToObj(S[0]));
End;
{--------------------}
Function TDATASOURCEget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;