h_db.pas

一个Delphi解释器的例子

Begin
  Result := TDATASOURCE(slf).ENABLED;
End;

Function TDATASOURCEset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDATASOURCE(slf).ENABLED:=S[0];
End;
{--------------------}
(*function myTFIELDASSIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFIELD(slf).ASSIGN(S[0]);
End;
{--------------------}
function myTFIELDASSIGNVALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFIELD(slf).ASSIGNVALUE(S[0]);
End;
*){--------------------}
function myTFIELDCLEAR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFIELD(slf).CLEAR;
End;
{--------------------}
function myTFIELDFOCUSCONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TFIELD(slf).FOCUSCONTROL;
End;
{--------------------}
Function TFIELDget_ASBOOLEAN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).ASBOOLEAN;
End;

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

Function TFIELDset_ASCURRENCY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).ASCURRENCY:=S[0];
End;
{--------------------}
Function TFIELDget_ASDATETIME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).ASDATETIME;
End;

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

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

Function TFIELDset_ASINTEGER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).ASINTEGER:=S[0];
End;
{--------------------}
Function TFIELDget_ASSTRING(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).ASSTRING;
End;

Function TFIELDset_ASSTRING(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).ASSTRING:=S[0];
End;
{--------------------}
Function TFIELDget_ASVARIANT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).ASVARIANT;
End;

Function TFIELDset_ASVARIANT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).ASVARIANT:=S[0];
End;
{--------------------}
(*Function TFIELDget_ATTRIBUTESET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).ATTRIBUTESET;
End;

Function TFIELDset_ATTRIBUTESET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).ATTRIBUTESET:=S[0];
End;
{--------------------}
*){--------------------}
Function TFIELDget_CANMODIFY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).CANMODIFY;
End;

{--------------------}
Function TFIELDget_DATASET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TFIELD(slf).DATASET);
End;
{--------------------}
Function TFIELDget_DATASIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).DATASIZE;
End;

Function TFIELDget_DISPLAYNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).DISPLAYNAME;
End;

Function TFIELDget_DISPLAYTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).DISPLAYTEXT;
End;

Function TFIELDget_EDITMASK(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).EDITMASK;
End;

Function TFIELDset_EDITMASK(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).EDITMASK:=S[0];
End;
{--------------------}
Function TFIELDget_FIELDNO(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).FIELDNO;
End;

Function TFIELDget_ISINDEXFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).ISINDEXFIELD;
End;

Function TFIELDget_ISNULL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).ISNULL;
End;

Function TFIELDget_SIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).SIZE;
End;

Function TFIELDset_SIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).SIZE:=S[0];
End;
{--------------------}
Function TFIELDget_TEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).TEXT;
End;

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

Function TFIELDset_VALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).VALUE:=S[0];
End;
{--------------------}
Function TFIELDget_NEWVALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).NEWVALUE;
End;

Function TFIELDset_NEWVALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).NEWVALUE:=S[0];
End;
{--------------------}
Function TFIELDget_OLDVALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).OLDVALUE;
End;

Function TFIELDget_CALCULATED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).CALCULATED;
End;

Function TFIELDset_CALCULATED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).CALCULATED:=S[0];
End;
{--------------------}
Function TFIELDget_DISPLAYLABEL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).DISPLAYLABEL;
End;

Function TFIELDset_DISPLAYLABEL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).DISPLAYLABEL:=S[0];
End;
{--------------------}
Function TFIELDget_DISPLAYWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).DISPLAYWIDTH;
End;

Function TFIELDset_DISPLAYWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).DISPLAYWIDTH:=S[0];
End;
{--------------------}
Function TFIELDget_FIELDNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).FIELDNAME;
End;

Function TFIELDset_FIELDNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).FIELDNAME:=S[0];
End;
{--------------------}
Function TFIELDget_INDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).INDEX;
End;

Function TFIELDset_INDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).INDEX:=S[0];
End;
{--------------------}
Function TFIELDget_LOOKUP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).LOOKUP;
End;

Function TFIELDset_LOOKUP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).LOOKUP:=S[0];
End;
{--------------------}
Function TFIELDget_LOOKUPDATASET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TFIELD(slf).LOOKUPDATASET);
End;

Function TFIELDset_LOOKUPDATASET(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).LOOKUPDATASET:=TDataSet(VarToObj(S[0]));
End;
{--------------------}
Function TFIELDget_LOOKUPKEYFIELDS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).LOOKUPKEYFIELDS;
End;

Function TFIELDset_LOOKUPKEYFIELDS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).LOOKUPKEYFIELDS:=S[0];
End;
{--------------------}
Function TFIELDget_LOOKUPRESULTFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).LOOKUPRESULTFIELD;
End;

Function TFIELDset_LOOKUPRESULTFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).LOOKUPRESULTFIELD:=S[0];
End;
{--------------------}
Function TFIELDget_KEYFIELDS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).KEYFIELDS;
End;

Function TFIELDset_KEYFIELDS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).KEYFIELDS:=S[0];
End;
{--------------------}
Function TFIELDget_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).READONLY;
End;

Function TFIELDset_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).READONLY:=S[0];
End;
{--------------------}
Function TFIELDget_REQUIRED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).REQUIRED;
End;

Function TFIELDset_REQUIRED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).REQUIRED:=S[0];
End;
{--------------------}
Function TFIELDget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFIELD(slf).VISIBLE;
End;

Function TFIELDset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFIELD(slf).VISIBLE:=S[0];
End;
{--------------------}
(*function myTDATALINKCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDATALINK(slf).CREATE;
End;
{--------------------}