{"id":3835,"date":"2016-04-21T12:02:19","date_gmt":"2016-04-21T04:02:19","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=3835"},"modified":"2016-04-21T12:02:38","modified_gmt":"2016-04-21T04:02:38","slug":"%e5%b0%86%e4%b8%80%e4%b8%aa%e5%ad%97%e7%ac%a6%e4%b8%b2%e6%a0%bc%e5%bc%8f%e5%8c%96%e4%b8%ba-delphi-dfm-%e6%a0%bc%e5%bc%8f%e7%9a%84%e5%ad%97%e7%ac%a6%e4%b8%b2","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=3835","title":{"rendered":"\u5c06\u4e00\u4e2a\u5b57\u7b26\u4e32\u683c\u5f0f\u5316\u4e3a Delphi DFM \u683c\u5f0f\u7684\u5b57\u7b26\u4e32"},"content":{"rendered":"<pre class=\"lang:delphi decode:true  \">function StrToDFMStr(S: UnicodeString): UnicodeString;\r\n  var\r\n    AHelper: TStringBuilder;\r\n    ps, ls: PWideChar;\r\n    L: Integer;\r\n    AQuoterNeeded: Boolean;\r\n  const\r\n    LineLength: Integer = 64;\r\n  begin\r\n    ps := PWideChar(S);\r\n    AHelper := TStringBuilder.Create;\r\n    try\r\n      L := 0;\r\n      AHelper.Append('''');\r\n      AQuoterNeeded := True;\r\n      while ps^ &lt;&gt; #0 do\r\n      begin\r\n        if AHelper.Length - L &gt; LineLength then\r\n        begin\r\n          if AQuoterNeeded then\r\n            AHelper.Append('''');\r\n          AHelper.Append(SLineBreak);\r\n          L := AHelper.Length;\r\n        end;\r\n        if (ps^ &gt;= ' ') and (ps^ &lt;&gt; '''') and (ps^ &lt; #$128) then\r\n        begin\r\n          AHelper.Append(ps^);\r\n          AQuoterNeeded := True;\r\n        end\r\n        else\r\n        begin\r\n          begin\r\n            if AQuoterNeeded then\r\n              AHelper.Append('''');\r\n            AHelper.Append('#').Append(Ord(ps^));\r\n            AQuoterNeeded := False;\r\n          end;\r\n        end;\r\n        Inc(ps);\r\n      end;\r\n      if AQuoterNeeded then\r\n        AHelper.Append('''');\r\n      Result := AHelper.ToString;\r\n    finally\r\n      FreeAndNil(AHelper);\r\n    end;\r\n  end;<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>function StrToDFMStr [&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,21],"tags":[545,25],"class_list":["post-3835","post","type-post","status-publish","format-standard","hentry","category-delphi","category-misc","tag-dfm","tag-25"],"views":3296,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3835","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=3835"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3835\/revisions"}],"predecessor-version":[{"id":3836,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/3835\/revisions\/3836"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3835"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3835"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3835"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}