h_stdct.pas

一个Delphi解释器的例子

Unit h_stdct;
Interface
Uses Delphin, STDCTRLS,Controls,Classes;
Implementation
{--------------------}
function myTGROUPBOXCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TCUSTOMGROUPBOX(slf).CREATE(TComponent(VarTOObj(S[0]))));
End;
{--------------------}

function myTCUSTOMLABELCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TCUSTOMLABEL(slf).CREATE(TComponent(VarTOObj(S[0]))));
End;

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

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

Function TLABELset_AUTOSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLABEL(slf).AUTOSIZE:=S[0];
End;
{--------------------}
Function TLABELget_FOCUSCONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TLABEL(slf).FOCUSCONTROL);
End;

Function TLABELset_FOCUSCONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLABEL(slf).FOCUSCONTROL:=TWincontrol(VarToObj(S[0]));
End;
{--------------------}
Function TLABELget_SHOWACCELCHAR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLABEL(slf).SHOWACCELCHAR;
End;

Function TLABELset_SHOWACCELCHAR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLABEL(slf).SHOWACCELCHAR:=S[0];
End;
{--------------------}
Function TLABELget_TRANSPARENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLABEL(slf).TRANSPARENT;
End;

Function TLABELset_TRANSPARENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLABEL(slf).TRANSPARENT:=S[0];
End;
{--------------------}
Function TLABELget_WORDWRAP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLABEL(slf).WORDWRAP;
End;

Function TLABELset_WORDWRAP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLABEL(slf).WORDWRAP:=S[0];
End;
{--------------------}
function myTCUSTOMEDITCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TCUSTOMEDIT(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTCUSTOMEDITCLEAR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMEDIT(slf).CLEAR;
End;
{--------------------}
function myTCUSTOMEDITCLEARSELECTION(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMEDIT(slf).CLEARSELECTION;
End;
{--------------------}
function myTCUSTOMEDITCOPYTOCLIPBOARD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMEDIT(slf).COPYTOCLIPBOARD;
End;
{--------------------}
function myTCUSTOMEDITCUTTOCLIPBOARD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMEDIT(slf).CUTTOCLIPBOARD;
End;
{--------------------}
function myTCUSTOMEDITPASTEFROMCLIPBOARD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMEDIT(slf).PASTEFROMCLIPBOARD;
End;
{--------------------}
{function myTCUSTOMEDITGETSELTEXTBUF(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
Result := TCUSTOMEDIT(slf).GETSELTEXTBUF(S[0],S[1]);
End;}
{--------------------}
function myTCUSTOMEDITSELECTALL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCUSTOMEDIT(slf).SELECTALL;
End;
{--------------------}
{function myTCUSTOMEDITSETSELTEXTBUF(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
TCUSTOMEDIT(slf).SETSELTEXTBUF(S[0]);
End;}
{--------------------}
Function TCUSTOMEDITget_MODIFIED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMEDIT(slf).MODIFIED;
End;

Function TCUSTOMEDITset_MODIFIED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMEDIT(slf).MODIFIED:=S[0];
End;
{--------------------}
Function TCUSTOMEDITget_SELLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMEDIT(slf).SELLENGTH;
End;

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

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

Function TCUSTOMEDITset_SELTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMEDIT(slf).SELTEXT:=S[0];
End;
Function TEDITget_AUTOSELECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TEDIT(slf).AUTOSELECT;
End;

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

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

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

Function TEDITset_CHARCASE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TEDIT(slf).CHARCASE:=S[0];
End;
{--------------------}
Function TEDITget_HIDESELECTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TEDIT(slf).HIDESELECTION;
End;

Function TEDITset_HIDESELECTION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TEDIT(slf).HIDESELECTION:=S[0];
End;
{--------------------}
Function TEDITget_MAXLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TEDIT(slf).MAXLENGTH;
End;

Function TEDITset_MAXLENGTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TEDIT(slf).MAXLENGTH:=S[0];
End;
{--------------------}
Function TEDITget_OEMCONVERT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TEDIT(slf).OEMCONVERT;
End;

Function TEDITset_OEMCONVERT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TEDIT(slf).OEMCONVERT:=S[0];
End;
{--------------------}
Function TEDITget_PASSWORDCHAR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TEDIT(slf).PASSWORDCHAR;
End;

Function TEDITset_PASSWORDCHAR(slf:TObject;var APropName:String;var s:array of variant):variant;
var St : String;
Begin
St:=S[0];
TEDIT(slf).PASSWORDCHAR:=St[1];
End;
{--------------------}
Function TEDITget_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TEDIT(slf).READONLY;
End;

Function TEDITset_READONLY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TEDIT(slf).READONLY:=S[0];
End;

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

Function TCUSTOMMEMOset_LINES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMMEMO(slf).LINES:=TStrings(VarToObj(S[0]));
End;
{--------------------}
Function TMEMOget_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TMEMO(slf).ALIGNMENT;
End;

Function TMEMOset_ALIGNMENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TMEMO(slf).ALIGNMENT:=S[0];
End;
{--------------------}
Function TMEMOget_SCROLLBARS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TMEMO(slf).SCROLLBARS;
End;

Function TMEMOset_SCROLLBARS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TMEMO(slf).SCROLLBARS:=S[0];
End;
{--------------------}
Function TMEMOget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TMEMO(slf).TABORDER;
End;

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

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