{"id":3275,"date":"2015-12-16T21:46:22","date_gmt":"2015-12-16T13:46:22","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=3275"},"modified":"2015-12-17T09:50:14","modified_gmt":"2015-12-17T01:50:14","slug":"qmacros-%e4%b8%80%e4%b8%aa%e5%8f%82%e6%95%b0%e5%8c%96%e5%ae%8f%e6%9b%bf%e6%8d%a2%e7%9a%84%e7%a4%ba%e4%be%8b%e4%bb%a3%e7%a0%81","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=3275","title":{"rendered":"[QMacros] \u4e00\u4e2a\u53c2\u6570\u5316\u5b8f\u66ff\u6362\u7684\u793a\u4f8b\u4ee3\u7801"},"content":{"rendered":"<p><strong>\u3010\u6ce8\u3011 QMacros \u5df2\u7ecf\u5185\u7f6e\u4e86\u53c2\u6570\u5316\u7684\u652f\u6301\uff0c\u8bf7\u5927\u5bb6\u53c2\u8003 \uff1a<a href=\"https:\/\/blog.qdac.cc\/?p=3278\" target=\"_blank\">[QMacros] \u66f4\u65b0\uff1a\u65b0\u589e\u5185\u7f6e\u7684\u53c2\u6570\u5316\u5b8f\u5b9a\u4e49\u652f\u6301<\/a><\/strong><\/p>\n<p>\u4e0b\u9762\u7684\u4ee3\u7801\u662f\u7ed9\u7fa4\u91cc\u7684\u4e00\u4f4d\u670b\u53cb\u5199\u7684 QMacros \u7684\u4e00\u4e2a\u7b80\u5355\u7684\u793a\u4f8b\uff0c\u901a\u8fc7\u53c2\u6570\u63a7\u5236\u5b8f\u66ff\u6362\u65f6\u7684\u503c\u7684\u8303\u56f4\u3002\u4f46\u8fd9\u4e2a\u4ee3\u7801\u53ea\u662f\u4e00\u4e2a\u7b80\u5355\u7684\u793a\u4f8b\uff0c\u521b\u5efa\u7684 PRangeMacro \u5b9e\u4f8b\u672a\u5728\u6700\u540e\u91ca\u653e\uff0c\u8bf7\u5927\u5bb6\u4f7f\u7528\u65f6\uff0c\u81ea\u884c\u52a0\u4e0a\u76f8\u5173\u7684\u4ee3\u7801\u3002<\/p>\n<pre class=\"lang:delphi decode:true \">type\r\n  TRangeMacro = record\r\n    StartChar, StopChar: WideChar;\r\n  end;\r\n\r\n  PRangeMacro = ^TRangeMacro;\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n  AMacros: TQMacroManager;\r\nbegin\r\n  AMacros := TQMacroManager.Create;\r\n  try\r\n    AMacros.SetOnMacroMiss(\r\n      procedure(ASender: TQMacroManager; AName: QStringW; const AQuoter: QCharW;\r\n        var AHandled: Boolean)\r\n      var\r\n        AParam: String;\r\n        AStartChar, AStopChar: WideChar;\r\n        p: PWideChar;\r\n        AItem: PRangeMacro;\r\n      begin\r\n        AParam := ValueOfW(AName, ':');\r\n        if Length(AParam) &gt; 0 then \/\/ \u53c2\u6570\u5316\r\n        begin\r\n          p := PWideChar(AParam);\r\n          if StartWithW(p, '[', true) then\r\n          begin\r\n            New(AItem);\r\n            Inc(p);\r\n            AItem.StartChar := p^;\r\n            Inc(p);\r\n            if p^ = '-' then\r\n            begin\r\n              Inc(p);\r\n              AItem.StopChar := p^;\r\n            end\r\n            else if p^ = '\\' then\r\n            begin\r\n              Inc(p);\r\n              AItem.StopChar := p^;\r\n            end\r\n            else\r\n              AItem.StopChar := p^;\r\n            Inc(p);\r\n            if p^ = ']' then\r\n            begin\r\n              AHandled := true;\r\n              ASender.Push(AName,\r\n                procedure(AMacro: TQMacroItem; const AQuoter: QCharW)\r\n                var\r\n                  I: Integer;\r\n                  ARange: PRangeMacro;\r\n                begin\r\n                  ARange := PRangeMacro(AMacro.Value.Tag);\r\n                  AMacro.Value.Value:= WideChar(Ord(ARange.StartChar) +\r\n                    random(Ord(ARange.StopChar) - Ord(ARange.StartChar)));\r\n                end, mvVolatile, IntPtr(AItem));\r\n            end;\r\n          end;\r\n        end;\r\n      end);\r\n    Edit1.Text:=AMacros.Replace('186(D2:[2-9])45','(',')',0);\r\n  finally\r\n    FreeAndNil(AMacros);\r\n  end;\r\nend;<\/pre>\n<p>\u4e0a\u9762\u7684\u4ee3\u7801\u7ed9\u5b9a\u4e86\u683c\u5f0f\u4e3a \u5b8f\u540d\u79f0:[\u5b57\u7b26\u8303\u56f4] \u8fd9\u6837\u5b50\u7684\u683c\u5f0f\uff0c\u5b57\u7b26\u8303\u56f4\u505a\u4e3a\u5b8f\u6bcf\u6b21\u8fd4\u56de\u503c\u7684\u63a7\u5236\u53c2\u6570\u3002<\/p>\n<blockquote><p>Edit1.Text:=AMacros.Replace(&#8216;186(D2:[2-9])45&#8217;,'(&#8216;,&#8217;)&#8217;,0);<\/p><\/blockquote>\n<p>\u8fd9\u53e5\u4ee3\u7801\u8981\u6bcf\u6b21\u66ff\u6362\u65f6\uff0c186 \u540e\u9762\u8ddf2-9\u4e4b\u95f4\u7684\u4efb\u610f\u6570\u5b57\uff0c\u7136\u540e\u518d\u540e\u9762\u8ddf\u7684\u662f45\u3002\u5b9e\u9645\u6267\u884c\u6548\u679c\u5982\u4e0b\u56fe\u6240\u793a \uff1a<\/p>\n<p><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/12\/paramedmacros.gif\" rel=\"attachment wp-att-3276\"><img loading=\"lazy\" decoding=\"async\" class=\"size-full wp-image-3276 aligncenter\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2015\/12\/paramedmacros.gif\" alt=\"paramedmacros\" width=\"417\" height=\"312\" \/><\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3010\u6ce8\u3011 QMacros \u5df2\u7ecf\u5185\u7f6e\u4e86\u53c2\u6570\u5316 [&hellip;]<\/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":[8,214],"tags":[57],"class_list":["post-3275","post","type-post","status-publish","format-standard","hentry","category-delphi","category-qmacros","tag-57"],"views":2933,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3275","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=3275"}],"version-history":[{"count":5,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3275\/revisions"}],"predecessor-version":[{"id":3285,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3275\/revisions\/3285"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3275"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3275"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3275"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}