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

📄 h_stdct.pas

📁 一个Delphi解释器的例子
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
Begin
  Result := TMEMO(slf).VISIBLE;
End;

Function TMEMOset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TMEMO(slf).VISIBLE:=S[0];
End;
{--------------------}
Function TMEMOget_WANTRETURNS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TMEMO(slf).WANTRETURNS;
End;

Function TMEMOset_WANTRETURNS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TMEMO(slf).WANTRETURNS:=S[0];
End;
{--------------------}
Function TMEMOget_WANTTABS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TMEMO(slf).WANTTABS;
End;

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

Function TMEMOset_WORDWRAP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TMEMO(slf).WORDWRAP:=S[0];
End;
{--------------------}

function myTCUSTOMCOMBOBOXCLEAR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMCOMBOBOX(slf).CLEAR;
End;
{--------------------}
function myTCUSTOMCOMBOBOXSELECTALL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMCOMBOBOX(slf).SELECTALL;
End;
{--------------------}
{--------------------}
Function TCUSTOMCOMBOBOXget_DROPPEDDOWN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMCOMBOBOX(slf).DROPPEDDOWN;
End;

Function TCUSTOMCOMBOBOXset_DROPPEDDOWN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMCOMBOBOX(slf).DROPPEDDOWN:=S[0];
End;
{--------------------}
Function TCUSTOMCOMBOBOXget_ITEMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TCUSTOMCOMBOBOX(slf).ITEMS);
End;

Function TCUSTOMCOMBOBOXset_ITEMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMCOMBOBOX(slf).ITEMS:=TStrings(VarToObj(S[0]));
End;
{--------------------}
Function TCUSTOMCOMBOBOXget_ITEMINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMCOMBOBOX(slf).ITEMINDEX;
End;

Function TCUSTOMCOMBOBOXset_ITEMINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMCOMBOBOX(slf).ITEMINDEX:=S[0];
End;
{--------------------}
Function TCUSTOMCOMBOBOXget_SELLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMCOMBOBOX(slf).SELLENGTH;
End;

Function TCUSTOMCOMBOBOXset_SELLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMCOMBOBOX(slf).SELLENGTH:=S[0];
End;
{--------------------}
Function TCUSTOMCOMBOBOXget_SELSTART(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMCOMBOBOX(slf).SELSTART;
End;

Function TCUSTOMCOMBOBOXset_SELSTART(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMCOMBOBOX(slf).SELSTART:=S[0];
End;
{--------------------}
Function TCUSTOMCOMBOBOXget_SELTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMCOMBOBOX(slf).SELTEXT;
End;

Function TCUSTOMCOMBOBOXset_SELTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMCOMBOBOX(slf).SELTEXT:=S[0];
End;
{--------------------}
Function TCOMBOBOXget_MAXLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOMBOBOX(slf).MAXLENGTH;
End;

Function TCOMBOBOXset_MAXLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOMBOBOX(slf).MAXLENGTH:=S[0];
End;

Function TCOMBOBOXget_SORTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOMBOBOX(slf).SORTED;
End;

Function TCOMBOBOXset_SORTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOMBOBOX(slf).SORTED:=S[0];
End;
{--------------------}

Function TCOMBOBOXget_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOMBOBOX(slf).STYLE;
End;

Function TCOMBOBOXset_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOMBOBOX(slf).STYLE:=S[0];
End;
{--------------------}
Function TCOMBOBOXget_DROPDOWNCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOMBOBOX(slf).DROPDOWNCOUNT;
End;

Function TCOMBOBOXset_DROPDOWNCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOMBOBOX(slf).DROPDOWNCOUNT:=S[0];
End;
{--------------------}
Function TCOMBOBOXget_ITEMHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOMBOBOX(slf).ITEMHEIGHT;
End;

Function TCOMBOBOXset_ITEMHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOMBOBOX(slf).ITEMHEIGHT:=S[0];
End;
{--------------------}
function myTBUTTONCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TBUTTON(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTBUTTONCLICK(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TBUTTON(slf).CLICK;
End;
{--------------------}
Function TBUTTONget_CANCEL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBUTTON(slf).CANCEL;
End;

Function TBUTTONset_CANCEL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBUTTON(slf).CANCEL:=S[0];
End;
{--------------------}
Function TBUTTONget_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBUTTON(slf).CAPTION;
End;

Function TBUTTONset_CAPTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBUTTON(slf).CAPTION:=S[0];
End;
{--------------------}
Function TBUTTONget_DEFAULT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBUTTON(slf).DEFAULT;
End;

Function TBUTTONset_DEFAULT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBUTTON(slf).DEFAULT:=S[0];
End;
{--------------------}
Function TBUTTONget_MODALRESULT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBUTTON(slf).MODALRESULT;
End;

Function TBUTTONset_MODALRESULT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBUTTON(slf).MODALRESULT:=S[0];
End;
{--------------------}

Function TCHECKBOXget_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCHECKBOX(slf).ALIGNMENT;
End;

Function TCHECKBOXset_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCHECKBOX(slf).ALIGNMENT:=S[0];
End;
Function TCHECKBOXget_ALLOWGRAYED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCHECKBOX(slf).ALLOWGRAYED;
End;

Function TCHECKBOXset_ALLOWGRAYED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCHECKBOX(slf).ALLOWGRAYED:=S[0];
End;
Function TCHECKBOXget_CHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCHECKBOX(slf).CHECKED;
End;

Function TCHECKBOXset_CHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCHECKBOX(slf).CHECKED:=S[0];
End;

Function TCHECKBOXget_STATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCHECKBOX(slf).STATE;
End;

Function TCHECKBOXset_STATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCHECKBOX(slf).STATE:=S[0];
End;
{--------------------}
function myTRADIOBUTTONCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TRADIOBUTTON(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TRADIOBUTTONget_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOBUTTON(slf).ALIGNMENT;
End;

Function TRADIOBUTTONset_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOBUTTON(slf).ALIGNMENT:=S[0];
End;
{--------------------}
Function TRADIOBUTTONget_CHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOBUTTON(slf).CHECKED;
End;

Function TRADIOBUTTONset_CHECKED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOBUTTON(slf).CHECKED:=S[0];
End;
{--------------------}
function myTCUSTOMLISTBOXCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TCUSTOMLISTBOX(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTCUSTOMLISTBOXCLEAR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMLISTBOX(slf).CLEAR;
End;
{--------------------}
{function myTCUSTOMLISTBOXITEMATPOS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCUSTOMLISTBOX(slf).ITEMATPOS(S[0],S[1]);  TPoint
End;}
{--------------------}
{function myTCUSTOMLISTBOXITEMRECT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCUSTOMLISTBOX(slf).ITEMRECT(S[0]);
End;}
{--------------------}
Function TCUSTOMLISTBOXget_ITEMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TCUSTOMLISTBOX(slf).ITEMS);
End;

Function TCUSTOMLISTBOXset_ITEMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMLISTBOX(slf).ITEMS:=TStrings(VarToObj(S[0]));
End;
{--------------------}
Function TCUSTOMLISTBOXget_ITEMINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
123

⌨️ 快捷键说明

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