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;

轉載于:https://www.cnblogs.com/wxb-km/p/4869445.html

總結

以上是生活随笔為你收集整理的TMS Scripter importtool的使用的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。