⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 h_dbct.pas

📁 一个Delphi解释器的例子
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
End;

Function TDBRADIOGROUPset_ITEMINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBRADIOGROUP(slf).ITEMINDEX:=S[0];
End;
{--------------------}
Function TDBRADIOGROUPget_VALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBRADIOGROUP(slf).VALUE;
End;

Function TDBRADIOGROUPset_VALUE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBRADIOGROUP(slf).VALUE:=S[0];
End;
{--------------------}
Function TDBRADIOGROUPget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBRADIOGROUP(slf).ALIGN;
End;

Function TDBRADIOGROUPset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBRADIOGROUP(slf).ALIGN:=S[0];
End;
{--------------------}
Function TDBRADIOGROUPget_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBRADIOGROUP(slf).CAPTION;
End;

Function TDBRADIOGROUPset_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBRADIOGROUP(slf).CAPTION:=S[0];
End;
{--------------------}
Function TDBRADIOGROUPget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBRADIOGROUP(slf).COLOR;
End;

Function TDBRADIOGROUPset_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBRADIOGROUP(slf).COLOR:=S[0];
End;
{--------------------}
Function TDBRADIOGROUPget_COLUMNS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBRADIOGROUP(slf).COLUMNS;
End;

Function TDBRADIOGROUPset_COLUMNS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBRADIOGROUP(slf).COLUMNS:=S[0];
End;
{--------------------}
Function TDBRADIOGROUPget_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBRADIOGROUP(slf).CTL3D;
End;

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

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

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

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

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

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

Function TDBRADIOGROUPset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBRADIOGROUP(slf).FONT:=TFOnt(VarToObj(S[0]));
End;
{--------------------}
Function TDBRADIOGROUPget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBRADIOGROUP(slf).PARENTCOLOR;
End;

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

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

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

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

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

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

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

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

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

Function TDBRADIOGROUPset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBRADIOGROUP(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTDBMEMOCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBMEMO(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTDBMEMOLOADMEMO(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TDBMEMO(slf).LOADMEMO;
End;
{--------------------}
Function TDBMEMOget_FIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBMEMO(slf).FIELD);
End;

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

Function TDBMEMOset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).ALIGN:=S[0];
End;
{--------------------}
Function TDBMEMOget_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).ALIGNMENT;
End;

Function TDBMEMOset_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).ALIGNMENT:=S[0];
End;
{--------------------}
Function TDBMEMOget_AUTODISPLAY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).AUTODISPLAY;
End;

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

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

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

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

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

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

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

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

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

Function TDBMEMOset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).FONT:=TFont(VarToObj(S[0]));
End;
{--------------------}
Function TDBMEMOget_MAXLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).MAXLENGTH;
End;

Function TDBMEMOset_MAXLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).MAXLENGTH:=S[0];
End;
{--------------------}
Function TDBMEMOget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBMEMO(slf).PARENTCOLOR;
End;

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

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

Function TDBMEMOset_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBMEMO(slf).PARENTFONT:=S[0];
End;
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -