uses ap_DateUtils; showmessage(dayof(now));??

//注冊(cè)delphi對(duì)象或變量 : 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;

轉(zhuǎn)載于:https://www.cnblogs.com/wxb-km/p/4869445.html

總結(jié)

以上是生活随笔為你收集整理的TMS Scripter importtool的使用的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。