h_dbct.pas

一个Delphi解释器的例子

End;

Function TDBCOMBOBOXset_DROPDOWNCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).DROPDOWNCOUNT:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).ENABLED;
End;

Function TDBCOMBOBOXset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).ENABLED:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBCOMBOBOX(slf).FONT);
End;

Function TDBCOMBOBOXset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).FONT:=TFOnt(VarToObj(S[0]));
End;
{--------------------}
Function TDBCOMBOBOXget_ITEMHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).ITEMHEIGHT;
End;

Function TDBCOMBOBOXset_ITEMHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).ITEMHEIGHT:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).PARENTCOLOR;
End;

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

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

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

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

Function TDBCOMBOBOXset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).POPUPMENU:=TpopupMenu(VarToObj(S[0]));
End;
{--------------------}
Function TDBCOMBOBOXget_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).READONLY;
End;

Function TDBCOMBOBOXset_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).READONLY:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).SHOWHINT;
End;

Function TDBCOMBOBOXset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_SORTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).SORTED;
End;

Function TDBCOMBOBOXset_SORTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).SORTED:=S[0];
End;
{--------------------}
Function TDBCOMBOBOXget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBCOMBOBOX(slf).TABORDER;
End;

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

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

Function TDBCOMBOBOXset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBCOMBOBOX(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTDBLISTBOXCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBLISTBOX(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TDBLISTBOXget_FIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TDBLISTBOX(slf).FIELD);
End;

{--------------------}
Function TDBLISTBOXget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).ALIGN;
End;

Function TDBLISTBOXset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).ALIGN:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).BORDERSTYLE;
End;

Function TDBLISTBOXset_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).BORDERSTYLE:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).COLOR;
End;

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

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

Function TDBLISTBOXset_DATAFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).DATAFIELD:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TDBLISTBOX(slf).DATASOURCE);
End;

Function TDBLISTBOXset_DATASOURCE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).DATASOURCE:=TDataSource(VarTOObj(S[0]));
End;
{--------------------}
Function TDBLISTBOXget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).DRAGCURSOR;
End;

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

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

Function TDBLISTBOXset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).ENABLED:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBLISTBOX(slf).FONT);
End;

Function TDBLISTBOXset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).FONT:=TFont(VarToObj(S[0]));
End;
{--------------------}
Function TDBLISTBOXget_INTEGRALHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).INTEGRALHEIGHT;
End;

Function TDBLISTBOXset_INTEGRALHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).INTEGRALHEIGHT:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_ITEMHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).ITEMHEIGHT;
End;

Function TDBLISTBOXset_ITEMHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).ITEMHEIGHT:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).PARENTCOLOR;
End;

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

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

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

Function TDBLISTBOXset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TDBLISTBOX(slf).POPUPMENU);
End;

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

Function TDBLISTBOXset_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).READONLY:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).SHOWHINT;
End;

Function TDBLISTBOXset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).STYLE;
End;

Function TDBLISTBOXset_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).STYLE:=S[0];
End;
{--------------------}
Function TDBLISTBOXget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBLISTBOX(slf).TABORDER;
End;

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

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

Function TDBLISTBOXset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBLISTBOX(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTDBRADIOGROUPCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBRADIOGROUP(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TDBRADIOGROUPget_FIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjTOVar(TDBRADIOGROUP(slf).FIELD);
End;

{--------------------}
Function TDBRADIOGROUPget_ITEMINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBRADIOGROUP(slf).ITEMINDEX;