h_dbct.pas

一个Delphi解释器的例子

Unit h_dbct;
Interface
Uses Delphin, DBCTRLS,Classes,DB,graphics,menus,dbgrids;
Implementation

{--------------------}
function myTDBEDITCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBEDIT(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TDBEDITget_FIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBEDIT(slf).FIELD);
End;

{--------------------}
Function TDBEDITget_AUTOSELECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBEDIT(slf).AUTOSELECT;
End;

Function TDBEDITset_AUTOSELECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBEDIT(slf).AUTOSELECT:=S[0];
End;
{--------------------}
Function TDBEDITget_AUTOSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBEDIT(slf).AUTOSIZE;
End;

Function TDBEDITset_AUTOSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBEDIT(slf).AUTOSIZE:=S[0];
End;
{--------------------}
Function TDBEDITget_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBEDIT(slf).BORDERSTYLE;
End;

Function TDBEDITset_BORDERSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBEDIT(slf).BORDERSTYLE:=S[0];
End;
{--------------------}
Function TDBEDITget_CHARCASE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBEDIT(slf).CHARCASE;
End;

Function TDBEDITset_CHARCASE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBEDIT(slf).CHARCASE:=S[0];
End;
{--------------------}
Function TDBEDITget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBEDIT(slf).COLOR;
End;

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

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

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

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

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

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

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

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

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

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

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

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

Function TDBEDITset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBEDIT(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TDBEDITget_PASSWORDCHAR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBEDIT(slf).PASSWORDCHAR;
End;

Function TDBEDITset_PASSWORDCHAR(slf:TObject;var APropName:String;var s:array of variant):variant;
var a:string;
Begin a:=S[0];
TDBEDIT(slf).PASSWORDCHAR:=a[1];
End;
{--------------------}
Function TDBEDITget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBEDIT(slf).POPUPMENU);
End;

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

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

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

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

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

Function TDBEDITset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBEDIT(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTDBTEXTCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TDBTEXT(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TDBTEXTget_FIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TDBTEXT(slf).FIELD);
End;

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

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

Function TDBTEXTset_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).ALIGNMENT:=S[0];
End;
{--------------------}
Function TDBTEXTget_AUTOSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBTEXT(slf).AUTOSIZE;
End;

Function TDBTEXTset_AUTOSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).AUTOSIZE:=S[0];
End;
{--------------------}
Function TDBTEXTget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBTEXT(slf).COLOR;
End;

Function TDBTEXTset_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).COLOR:=S[0];
End;
{--------------------}
Function TDBTEXTget_DATAFIELD(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBTEXT(slf).DATAFIELD;
End;

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

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

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

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

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

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

Function TDBTEXTset_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TDBTEXT(slf).PARENTCOLOR:=S[0];
End;
{--------------------}
Function TDBTEXTget_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TDBTEXT(slf).PARENTFONT;
End;

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

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