h_class.pas

一个Delphi解释器的例子

Unit h_class;

Interface

Uses Delphin, CLASSES;

Implementation

function myTSTRINGListCreate(slf:TObject;var APropName:String;var s:array of variant):variant;
var SL : TStringList;
begin
 SL :=TStringList.Create;
 Result := ObjToVar(SL);
End;

(*{--------------------}
function myTLISTADD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TLIST(slf).ADD(S[0]);
End;
{--------------------}
function myTLISTCLEAR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TLIST(slf).CLEAR;
End;
{--------------------}
function myTLISTDELETE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TLIST(slf).DELETE(S[0]);
End;
{--------------------}
function myTLISTEXCHANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TLIST(slf).EXCHANGE(S[0],S[1]);
End;
{--------------------}
function myTLISTEXPAND(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TLIST(slf).EXPAND;
End;
{--------------------}
function myTLISTFIRST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TLIST(slf).FIRST;
End;
{--------------------}
function myTLISTINDEXOF(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TLIST(slf).INDEXOF(S[0]);
End;
{--------------------}
function myTLISTINSERT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TLIST(slf).INSERT(S[0],S[1]);
End;
{--------------------}
function myTLISTLAST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TLIST(slf).LAST;
End;
{--------------------}
function myTLISTMOVE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TLIST(slf).MOVE(S[0],S[1]);
End;
{--------------------}
function myTLISTREMOVE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TLIST(slf).REMOVE(S[0]);
End;
{--------------------}
function myTLISTPACK(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TLIST(slf).PACK;
End;
{--------------------}
function myTLISTSORT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TLIST(slf).SORT(S[0]);
End;
{--------------------}
Function TLISTget_CAPACITY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLIST(slf).CAPACITY;
End;

Function TLISTset_CAPACITY(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLIST(slf).CAPACITY:=S[0];
End;
{--------------------}
Function TLISTget_COUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLIST(slf).COUNT;
End;

Function TLISTset_COUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLIST(slf).COUNT:=S[0];
End;
{--------------------}
Function TLISTget_LIST(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLIST(slf).LIST;
End;

Function TLISTset_LIST(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLIST(slf).LIST:=S[0];
End;
*)


(*{--------------------}
function myTBITSDESTROY(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TBITS(slf).DESTROY;
End;
{--------------------}
function myTBITSOPENBIT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TBITS(slf).OPENBIT;
End;
{--------------------}
Function TBITSget_SIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TBITS(slf).SIZE;
End;

Function TBITSset_SIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TBITS(slf).SIZE:=S[0];
End;
*)

{--------------------}
function myTPERSISTENTASSIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
var O : TPersistent;
begin
 O := TPersistent(VarToObj(S[0]));
 TPERSISTENT(slf).ASSIGN(O);
End;


{--------------------}
function myTSTRINGSADD(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TSTRINGS(slf).ADD(S[0]);
End;
{--------------------}
function myTSTRINGSADDOBJECT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TSTRINGS(slf).ADDOBJECT(S[0],VarToObj(S[1]));
End;
{--------------------}
function myTSTRINGSAPPEND(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
  TSTRINGS(slf).APPEND(S[0]);
End;
{--------------------}
function myTSTRINGSADDSTRINGS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).ADDSTRINGS(TStrings(VarToObj(S[0])));
End;
{--------------------}
function myTSTRINGSBEGINUPDATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).BEGINUPDATE;
End;
{--------------------}
function myTSTRINGSCLEAR(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).CLEAR;
End;
{--------------------}
function myTSTRINGSDELETE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).DELETE(S[0]);
End;
{--------------------}
function myTSTRINGSENDUPDATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).ENDUPDATE;
End;
{--------------------}
function myTSTRINGSEQUALS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TSTRINGS(slf).EQUALS(TStrings(VarToObj(S[0])));
End;
{--------------------}
function myTSTRINGSEXCHANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).EXCHANGE(S[0],S[1]);
End;
{--------------------}
{function myTSTRINGSGETTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := String(TSTRINGS(slf).GETTEXT);
End;}
{--------------------}
function myTSTRINGSINDEXOF(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TSTRINGS(slf).INDEXOF(S[0]);
End;
{--------------------}
function myTSTRINGSINDEXOFNAME(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TSTRINGS(slf).INDEXOFNAME(S[0]);
End;
{--------------------}
function myTSTRINGSINDEXOFOBJECT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TSTRINGS(slf).INDEXOFOBJECT(VarToObj(S[0]));
End;
{--------------------}
function myTSTRINGSINSERT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).INSERT(S[0],S[1]);
End;
{--------------------}
function myTSTRINGSLOADFROMFILE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).LOADFROMFILE(S[0]);
End;
{--------------------}
(*function myTSTRINGSLOADFROMSTREAM(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).LOADFROMSTREAM(S[0]);
End;
*)
{--------------------}
function myTSTRINGSMOVE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).MOVE(S[0],S[1]);
End;
{--------------------}
function myTSTRINGSSAVETOFILE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSTRINGS(slf).SAVETOFILE(S[0]);
End;

Function TSTRINGSget_COMMATEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSTRINGS(slf).COMMATEXT;
End;

Function TSTRINGSset_COMMATEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSTRINGS(slf).COMMATEXT:=S[0];
End;
{--------------------}
Function TSTRINGSget_COUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSTRINGS(slf).COUNT;