h_dbct.pas

一个Delphi解释器的例子

{--------------------}
Function TDBMEMOget_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).PARENTSHOWHINT;
End;

Function TDBMEMOset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TDBMEMOget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBMEMO(slf).POPUPMENU);
End;

Function TDBMEMOset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).POPUPMENU:=TPopupMenu(VarToObj(S[0]));
End;
{--------------------}
Function TDBMEMOget_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).READONLY;
End;

Function TDBMEMOset_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).READONLY:=S[0];
End;
{--------------------}
Function TDBMEMOget_SCROLLBARS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).SCROLLBARS;
End;

Function TDBMEMOset_SCROLLBARS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).SCROLLBARS:=S[0];
End;
{--------------------}
Function TDBMEMOget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).SHOWHINT;
End;

Function TDBMEMOset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TDBMEMOget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).TABORDER;
End;

Function TDBMEMOset_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).TABORDER:=S[0];
End;
{--------------------}
Function TDBMEMOget_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).TABSTOP;
End;

Function TDBMEMOset_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).TABSTOP:=S[0];
End;
{--------------------}
Function TDBMEMOget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).VISIBLE;
End;

Function TDBMEMOset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).VISIBLE:=S[0];
End;
{--------------------}
Function TDBMEMOget_WANTTABS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).WANTTABS;
End;

Function TDBMEMOset_WANTTABS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).WANTTABS:=S[0];
End;
{--------------------}
Function TDBMEMOget_WORDWRAP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).WORDWRAP;
End;

Function TDBMEMOset_WORDWRAP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).WORDWRAP:=S[0];
End;
{--------------------}
function myTDBIMAGECREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBIMAGE(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTDBIMAGECOPYTOCLIPBOARD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBIMAGE(slf).COPYTOCLIPBOARD;
End;
{--------------------}
function myTDBIMAGECUTTOCLIPBOARD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBIMAGE(slf).CUTTOCLIPBOARD;
End;
{--------------------}
function myTDBIMAGELOADPICTURE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBIMAGE(slf).LOADPICTURE;
End;
{--------------------}
function myTDBIMAGEPASTEFROMCLIPBOARD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBIMAGE(slf).PASTEFROMCLIPBOARD;
End;
{--------------------}
Function TDBIMAGEget_FIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TDBIMAGE(slf).FIELD);
End;
{--------------------}
Function TDBIMAGEget_PICTURE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TDBIMAGE(slf).PICTURE);
End;

Function TDBIMAGEset_PICTURE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).PICTURE:=TPicture(VarToObj(S[0]));
End;
{--------------------}
Function TDBIMAGEget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).ALIGN;
End;

Function TDBIMAGEset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).ALIGN:=S[0];
End;
{--------------------}
Function TDBIMAGEget_AUTODISPLAY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).AUTODISPLAY;
End;

Function TDBIMAGEset_AUTODISPLAY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).AUTODISPLAY:=S[0];
End;
{--------------------}
Function TDBIMAGEget_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).BORDERSTYLE;
End;

Function TDBIMAGEset_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).BORDERSTYLE:=S[0];
End;
{--------------------}
Function TDBIMAGEget_CENTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).CENTER;
End;

Function TDBIMAGEset_CENTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).CENTER:=S[0];
End;
{--------------------}
Function TDBIMAGEget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).COLOR;
End;

Function TDBIMAGEset_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).COLOR:=S[0];
End;
{--------------------}
Function TDBIMAGEget_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).CTL3D;
End;

Function TDBIMAGEset_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).CTL3D:=S[0];
End;
{--------------------}
Function TDBIMAGEget_DATAFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).DATAFIELD;
End;

Function TDBIMAGEset_DATAFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).DATAFIELD:=S[0];
End;
{--------------------}
Function TDBIMAGEget_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBIMAGE(slf).DATASOURCE);
End;

Function TDBIMAGEset_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).DATASOURCE:=TDataSource(VarToObj(S[0]));
End;
{--------------------}
Function TDBIMAGEget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).DRAGCURSOR;
End;

Function TDBIMAGEset_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).DRAGCURSOR:=S[0];
End;
{--------------------}
Function TDBIMAGEget_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).DRAGMODE;
End;

Function TDBIMAGEset_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).DRAGMODE:=S[0];
End;
{--------------------}
Function TDBIMAGEget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).ENABLED;
End;

Function TDBIMAGEset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).ENABLED:=S[0];
End;
{--------------------}
Function TDBIMAGEget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TDBIMAGE(slf).FONT);
End;

Function TDBIMAGEset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).FONT:=TFont(VarToObj(S[0]));
End;
{--------------------}
Function TDBIMAGEget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).PARENTCOLOR;
End;

Function TDBIMAGEset_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).PARENTCOLOR:=S[0];
End;
{--------------------}
Function TDBIMAGEget_PARENTCTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).PARENTCTL3D;
End;

Function TDBIMAGEset_PARENTCTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).PARENTCTL3D:=S[0];
End;
{--------------------}
Function TDBIMAGEget_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).PARENTFONT;
End;

Function TDBIMAGEset_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).PARENTFONT:=S[0];
End;
{--------------------}
Function TDBIMAGEget_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).PARENTSHOWHINT;
End;

Function TDBIMAGEset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TDBIMAGEget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBIMAGE(slf).POPUPMENU);
End;

Function TDBIMAGEset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).POPUPMENU:=TPopupMenu(VarToObj(S[0]));
End;
{--------------------}
Function TDBIMAGEget_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).READONLY;
End;

Function TDBIMAGEset_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).READONLY:=S[0];
End;
{--------------------}
Function TDBIMAGEget_QUICKDRAW(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).QUICKDRAW;
End;

Function TDBIMAGEset_QUICKDRAW(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).QUICKDRAW:=S[0];
End;
{--------------------}
Function TDBIMAGEget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).SHOWHINT;
End;

Function TDBIMAGEset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TDBIMAGEget_STRETCH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).STRETCH;
End;

Function TDBIMAGEset_STRETCH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).STRETCH:=S[0];
End;
{--------------------}
Function TDBIMAGEget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).TABORDER;
End;

Function TDBIMAGEset_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).TABORDER:=S[0];
End;
{--------------------}
Function TDBIMAGEget_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).TABSTOP;
End;

Function TDBIMAGEset_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).TABSTOP:=S[0];
End;
{--------------------}
Function TDBIMAGEget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBIMAGE(slf).VISIBLE;
End;

Function TDBIMAGEset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBIMAGE(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTDBNAVIGATORCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBNAVIGATOR(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTDBNAVIGATORSETBOUNDS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBNAVIGATOR(slf).SETBOUNDS(S[0],S[1],S[2],S[3]);
End;
{--------------------}
function myTDBNAVIGATORBTNCLICK(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBNAVIGATOR(slf).BTNCLICK(S[0]);
End;
{--------------------}
Function TDBNAVIGATORget_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBNAVIGATOR(slf).DATASOURCE);
End;