TMS Scripter importtool的使用

uses ap_DateUtils; showmessage(dayof(now));

//注册delphi对象或变量 : IDEScripter1   IDEScripter1.AddConstant('Appath',Appath);   IDEScripter1.AddObject('memo1',memo1);   IDEScripter1.AddObject('dbqry',DBISAMQuery1);   IDEScripter1.AddObject('prnt',PrintDBGridEh1);   IDEScripter1.AddObject('DBGridEh1',DBGridEh1);   IDEScripter1.AddObject('RMReport',RMFormReport1);   IDEScripter1.AddComponent(DBISAMQuery1);

SysUtils, Classes, Controls, Graphics, StdCtrls, UniGUIInterfaces,   UniGUIClasses, UniGUITypes;

uniMemo

ObjectToVar

procedure TatuniGUIAbstractClassesLibrary.__GetTUniTreeNodeFont(AMachine: TatVirtualMachine); var   AResult: variant; begin   with AMachine do   begin     AResult:=string(TUniTreeNode(CurrentObject).Font);     ReturnOutputArg(AResult);   end; end;

procedure TatuniGUIAbstractClassesLibrary.__SetTUniTreeNodeFont(AMachine: TatVirtualMachine); begin   with AMachine do   begin     TUniTreeNode(CurrentObject).Font:=TUniFont(VarToObject(GetInputArg(0)));   end; end;