{"id":3278,"date":"2015-12-17T09:30:39","date_gmt":"2015-12-17T01:30:39","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=3278"},"modified":"2015-12-17T09:30:39","modified_gmt":"2015-12-17T01:30:39","slug":"qmacros-%e6%9b%b4%e6%96%b0%ef%bc%9a%e6%96%b0%e5%a2%9e%e5%86%85%e7%bd%ae%e7%9a%84%e5%8f%82%e6%95%b0%e5%8c%96%e5%ae%8f%e5%ae%9a%e4%b9%89%e6%94%af%e6%8c%81","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=3278","title":{"rendered":"[QMacros] \u66f4\u65b0\uff1a\u65b0\u589e\u5185\u7f6e\u7684\u53c2\u6570\u5316\u5b8f\u5b9a\u4e49\u652f\u6301"},"content":{"rendered":"

\u3010\u66f4\u65b0\u8bf4\u660e\u3011<\/h4>\n

\u65b0\u7248\u672c\u7684 QMacros \u65b0\u589e\u5b8f\u5b9a\u4e49\u7684\u53c2\u6570\u5316\u652f\u6301\uff0c\u901a\u8fc7\u652f\u6301\u53c2\u6570\u5316\uff0c\u4ece\u800c\u8ba9\u975e\u56fa\u5b9a\u503c\u7684\u5b8f\u80fd\u591f\u6839\u636e\u53c2\u6570\u505a\u51fa\u9002\u5f53\u7684\u53d8\u5316\uff0c\u4e3a\u5e94\u7528\u7684\u5f00\u53d1\u63d0\u4f9b\u66f4\u597d\u7684\u652f\u6301\u3002<\/p>\n

\u4e0b\u9762\u662f\u4e00\u4e2a\u53c2\u6570\u5316\u5b8f\u66ff\u6362\u7684\u4f8b\u5b50\uff1a<\/p>\n

procedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n  AMgr: TQMacroManager;\r\n  ACompiled: TQMacroComplied;\r\n  I: Integer;\r\nbegin\r\n  AMgr := TQMacroManager.Create;\r\n  mmResults.Lines.BeginUpdate;\r\n  try\r\n    AMgr.Push('Rand', DoRandValue);\r\n    ACompiled := AMgr.Complie(edtExpr.Text, '%', '%', MRF_PARSE_PARAMS);\r\n    for I := 0 to 9 do\r\n      mmResults.Lines.Add(ACompiled.Replace);\r\n  finally\r\n    if Assigned(ACompiled) then\r\n      FreeAndNil(ACompiled);\r\n    FreeAndNil(AMgr);\r\n    mmResults.Lines.EndUpdate;\r\n  end;\r\nend;\r\n\r\nprocedure TForm1.DoRandValue(AMacro: TQMacroItem; const AQuoter: QCharW);\r\nvar\r\n  AMin: Integer;\r\nbegin\r\n  \/\/ Rand(),Rand(Max),Rand(Min,Max)\r\n  if Assigned(AMacro.Params) and (AMacro.Params.Count > 0) then\r\n  begin\r\n    if AMacro.Params.Count = 1 then\r\n      AMacro.Value.Value := IntToStr(Random(AMacro.Params[0].AsInteger))\r\n    else\r\n      AMacro.Value.Value := IntToStr(AMacro.Params[0].AsInteger +\r\n        Random(AMacro.Params[1].AsInteger - AMacro.Params[0].AsInteger));\r\n  end\r\n  else\r\n    AMacro.Value.Value := FloatToStr(Random);\r\nend;<\/pre>\n
\u6ce8\u610f\uff1a\u4f7f\u7528\u53c2\u6570\u5316\u5b8f\u66ff\u6362\u65f6\uff0c\u5fc5\u9700\u6307\u5b9a\u00a0MRF_PARSE_PARAMS \u6807\u5fd7\u4f4d\uff0c\u5426\u5219\uff0cQMacros \u4e0d\u4f1a\u89e3\u6790\u5b8f\u7684\u53c2\u6570\u4fe1\u606f\uff0c\u800c\u662f\u5c06\u6574\u4e2a\u5305\u542b\u53c2\u6570\u7684\u5185\u5bb9\u5f53\u505a\u4e00\u4e2a\u5b8f\u540d\u79f0\u3002\u4f7f\u7528\u53c2\u6570\u5316\u5b8f\u65f6\uff0c\u5b8f\u7684\u540d\u79f0\u4e3a \u201c(\u201d \u4e4b\u524d\u7684\u90e8\u5206\uff0c\u201c(\u201d \u548c \u201c)\u201d \u4e4b\u95f4\u7684\u5185\u5bb9\u88ab\u5f53\u505a\u5b8f\u53c2\u6570\u3002<\/p>\n
\u4e0b\u56fe\u662f\u4e00\u4e2a\u6d4b\u8bd5\u7684\u6548\u679c\u622a\u56fe\uff1a<\/p>\n
\"qmacroparams\"<\/a><\/p>\n
\u3010\u66f4\u65b0\u7ea7\u522b\u3011<\/h4>\n
\u53ef\u9009<\/p>\n
\u3010\u7279\u522b\u611f\u8c22\u3011<\/h4>\n
\u6e23\u6e23<\/p>\n
 <\/p>\n","protected":false},"excerpt":{"rendered":"
\u3010\u66f4\u65b0\u8bf4\u660e\u3011 \u65b0\u7248\u672c\u7684 QMacros  […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[145,69,8,9,214,2],"tags":[85,216],"class_list":["post-3278","post","type-post","status-publish","format-standard","hentry","category-android","category-c-builder","category-delphi","category-qdac","category-qmacros","category-update","tag-85","tag-216"],"views":4935,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3278","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3278"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3278\/revisions"}],"predecessor-version":[{"id":3280,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3278\/revisions\/3280"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3278"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3278"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3278"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}