小编A. *_*nic的帖子

我正在使用 Delphi 2006 和psvActiveScript。

例子：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, 
  ObjComAuto, ComObj, psvActiveScript;

type
  TForm1 = class(TForm)
    btnExecute: TButton;
    procedure btnExecuteClick(Sender: TObject);
    procedure ASWError(Sender: TObject; Line, Pos: Integer; ASrc, ADescription: String);
  end;

var
  Form1: TForm1;
  ASW: TpsvActiveScriptWindow;

implementation

{$R *.DFM}

type
  {$METHODINFO ON}
  TMySriptableClass = class(TObjectDispatch)
  public
    constructor Create;
    procedure Alert(msg: string);
    // THIS OR SOMETHING SIMILAR NOT POSSIBLE? **********************
    function FnWithVarNumOfArgs(const args: array of string): string;
    // **************************************************************
  end; …