{"id":55,"date":"2014-08-24T00:12:19","date_gmt":"2014-08-23T16:12:19","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=55"},"modified":"2014-08-24T00:12:19","modified_gmt":"2014-08-23T16:12:19","slug":"delphi%e6%97%a9%e6%9c%9f%e7%89%88%e6%9c%acwidestring%e7%9a%84%e6%9b%bf%e4%bb%a3%e8%a7%a3%e5%86%b3%e6%96%b9%e6%a1%88","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=55","title":{"rendered":"Delphi\u65e9\u671f\u7248\u672cWideString\u7684\u66ff\u4ee3\u89e3\u51b3\u65b9\u6848"},"content":{"rendered":"<p style=\"color: #454545;\">\u00a0 \u00a0 \u5728Delphi\u7684\u65e9\u671f\u7248\u672c\u4e2d\uff0c\u5e76\u6ca1\u6709\u63d0\u4f9bUnicodeString\uff0c\u800cWideString\u7f13\u6162\u7684\u6027\u80fd\u4f7f\u8bb8\u591a\u4f7f\u7528\u5bbd\u5b57\u7b26\u4e32\u7684\u5e94\u7528\u6027\u80fd\u4e0d\u9ad8\u3002\u672c\u6587\u63d0\u4f9b\u4e86\u4e00\u79cd\u65b9\u6cd5\uff0c\u6765\u4f18\u5316\u65e9\u671f\u7684\u5bbd\u5b57\u7b26\u4e32\u901f\u5ea6\u3002<\/p>\n<p style=\"color: #454545;\">\u00a0\u00a0\u00a0\u00a0\u3010\u6ce8\u610f\u3011\u672c\u6587\u5e76\u6ca1\u6709\u5b8c\u6574\u5b9e\u73b0\u6240\u6709\u9700\u8981\u7684\u65b9\u6cd5\uff0c\u5982\u679c\u60a8\u6709\u5174\u8da3\uff0c\u81ea\u5df1\u5b9e\u73b0\u5269\u4e0b\u7684\u90e8\u5206\u5427\u3002<\/p>\n<p style=\"color: #454545;\">\u00a0\u00a0\u00a0\u00a0\u6211\u4eec\u77e5\u9053WideString\u901f\u5ea6\u6162\u7684\u4e00\u4e2a\u91cd\u8981\u539f\u56e0\u662f\u6ca1\u6709\u5f15\u7528\u8ba1\u6570\uff0c\u56e0\u6b64\uff0c\u9700\u8981\u5b57\u7b26\u4e32\u7684\u9891\u7387\u62f7\u8d1d\u5904\u7406\uff0c\u9020\u6210\u7cfb\u7edf\u6027\u80fd\u4f4e\u4e0b\uff0c\u6211\u4eec\u5c31\u4ece\u6b64\u5165\u53e3\uff0c\u63d0\u5347\u6027\u80fd\u3002<\/p>\n<p style=\"color: #454545;\">\u00a0\u00a0\u00a0\u00a0\u540c\u65f6\uff0c\u7531\u4e8eWideString\u662f\u5185\u7f6e\u7c7b\u578b\uff0c\u5176\u5206\u914d\u548c\u91ca\u653e\u7cfb\u7edf\u81ea\u52a8\u6765\u51b3\u5b9a\uff0c\u6211\u4eec\u7684\u5b9e\u73b0\u4e5f\u5e94\u8fbe\u5230\u8fd9\u4e2a\u8981\u6c42\u3002\u6211\u4eec\u77e5\u9053interface\u4f1a\u81ea\u52a8\u7ba1\u7406\u8ba1\u6570\u5668\uff0c\u800c\u7ed3\u6784\u4e2d\u7684interface\uff0cDelphi\u4e5f\u4f1a\u81ea\u52a8\u7ba1\u7406\u751f\u547d\u5468\u671f\uff0c\u6240\u4ee5\uff0c\u4e0b\u9762\u7684\u793a\u4f8b\u4ee3\u7801\u5c31\u662f\u7528\u4e86\u8fd9\u6837\u4e00\u4e2a\u6280\u5de7\uff0c\u6211\u4eec\u6765\u770b\u58f0\u660e\uff1a<\/p>\n<pre class=\"lang:delphi decode:true \">IQStringW=interface\r\n    procedure From(S:WideString);overload;\r\n    procedure From(p:PWideChar;len:NativeInt);overload;\r\n    function Copy:IQStringW;\r\n    function Data:PWideChar;\r\n    function Length:Integer;\r\n  end;\r\n \r\n  TQStringW=class(TInterfacedObject,IQStringW)\r\n  private\r\n    FData:array of WideChar;\r\n  public\r\n    procedure From(S:WideString);overload;\r\n    procedure From(p:PWideChar;len:NativeInt);overload;\r\n    function Copy:IQStringW;\r\n    function Data:PWideChar;\r\n    function Length:Integer;\r\n  end;\r\n \r\n  QStringW=record\r\n  private\r\n    Data:IQStringW;\r\n  public\r\n    class operator Implicit(const S:WideString):QStringW;\r\n    class operator Implicit(const p:PWideChar):QStringW;\r\n    class operator Implicit(const S:QStringW):PWideChar;\r\n    class operator Implicit(const S:QStringW):WideString;\r\n    function Copy:QStringW;\r\n  end;<\/pre>\n<p><span style=\"color: #454545;\">\u6211\u4eec\u7684QStringW\u662f\u4e00\u4e2a\u8bb0\u5f55\uff0c\u5185\u90e8\u552f\u4e00\u7684\u6570\u636e\u6210\u5458Data\u662f\u4e00\u4e2aIQStringW\u63a5\u53e3\uff0c\u8fd9\u6837\u8d4b\u503c\u65f6\uff0c\u8bb0\u5f55\u5c06\u81ea\u52a8\u7ba1\u7406Data\u7684\u5f15\u7528\u8ba1\u6570\uff0c\u81f3\u4e8e\u4e0b\u9762\u7684\u4e00\u4e9b\u91cd\u8f7d\uff0c\u4ec5\u4ec5\u662f\u6f14\u793a\uff0c\u5b9e\u9645\u5e94\u7528\u8fd8\u9700\u8981\u91cd\u8f7d\u66f4\u591a\u7684\u64cd\u4f5c\u7b26\uff0c\u4ee5\u65b9\u4fbf\u64cd\u4f5c\u3002\u4e0b\u9762\u662f\u5b9e\u73b0\u7684\u4ee3\u7801\uff1a<\/span><\/p>\n<pre class=\"lang:delphi decode:true \">{ QStringW }\r\n \r\nclass operator QStringW.Implicit(const p: PWideChar): QStringW;\r\nbegin\r\nResult.Data:=TQStringW.Create;\r\nResult.Data.From(String(p));\r\nend;\r\n \r\nclass operator QStringW.Implicit(const S: WideString): QStringW;\r\nbegin\r\nResult.Data:=TQStringW.Create;\r\nResult.Data.From(S);\r\nend;\r\n \r\nclass operator QStringW.Implicit(const S: QStringW): WideString;\r\nbegin\r\nif Assigned(S.Data) then\r\n  Result:=System.Copy(S.Data.Data,0,S.Data.Length)\r\nelse\r\n  SetLength(Result,0);\r\nend;\r\n \r\nclass operator QStringW.Implicit(const S: QStringW): PWideChar;\r\nbegin\r\nif Assigned(S.Data) then\r\n  Result:=S.Data.Data\r\nelse\r\n  Result:=nil;\r\nend;\r\n \r\nfunction QStringW.Copy: QStringW;\r\nbegin\r\nif Assigned(Data) then\r\n  Result.Data:=Data.Copy\r\nelse\r\n  Result.Data:=nil;\r\nend;\r\n \r\n \r\n{ TQStringW }\r\n \r\nfunction TQStringW.Copy: IQStringW;\r\nvar\r\n  AResult:TQStringW;\r\n  L:NativeInt;\r\nbegin\r\nAResult:=TQStringW.Create;\r\nL:=System.Length(FData);\r\nSetLength(AResult.FData,L);\r\nif L&gt;0 then\r\n  Move(FData[0],AResult.FData[0],L shl 1);\r\nResult:=AResult;\r\nend;\r\n \r\nfunction TQStringW.Data: PWideChar;\r\nbegin\r\nResult:=PWideChar(@FData[0]);\r\nend;\r\n \r\nprocedure TQStringW.From(S: WideString);\r\nvar\r\n  L:NativeInt;\r\nbegin\r\nL:=System.Length(S);\r\nSetLength(FData,L+1);\r\nif L&gt;0 then\r\n  Move(PWideChar(S)^,FData[0],L shl 1);\r\nFData[L]:=#0;\r\nend;\r\n \r\nprocedure TQStringW.From(p: PWideChar; len: NativeInt);\r\nbegin\r\nif len&lt;0 then\r\n  From(String(p))\r\nelse\r\n  begin\r\n  SetLength(FData,len+1);\r\n  if len&gt;0 then\r\n    Move(p^,FData[0],len shl 1);\r\n  FData[len]:=#0;\r\n  end;\r\nend;\r\n \r\nfunction TQStringW.Length: Integer;\r\nbegin\r\nResult:=System.Length(FData);\r\nend;<\/pre>\n<p><span style=\"color: #454545;\">\u7531\u4e8e\u6211\u4eec\u53ea\u5b9e\u73b0\u4e86\u8d4b\u503c\u64cd\u4f5c\u503c\uff0c\u90a3\u4e48\u6211\u4eec\u5bf9\u6bd4\u4e0b\u8d4b\u503c\u7684\u6027\u80fd\uff1a<\/span><\/p>\n<pre class=\"lang:delphi decode:true \">var\r\n  S,S1:QStringW;\r\n  WS,WS1:WideString;\r\n  U,US1:UnicodeString;\r\n  I: Integer;\r\n  T1,T2,T3:DWord;\r\nbegin\r\nS:='Hello,world';\r\nWS:='Hello,world';\r\nU:='Hello,world';\r\nT1:=GetTickCount;\r\nfor I := 0 to 1000000 do\r\n  S1:=S;\r\nT1:=GetTickCount-T1;\r\nT2:=GetTickCount;\r\nfor I := 0 to 1000000 do\r\n  WS1:=WS;\r\nT2:=GetTickCount-T2;\r\nT3:=GetTickCount;\r\nfor I := 0 to 1000000 do\r\n  US1:=U;\r\nT3:=GetTickCount-T3;\r\nShowMessage('QStringW='+IntToStr(T1)+'ms,WideString='+IntToStr(T2)+'ms,UnicodeString='+IntToStr(T3)+'ms');\r\nend;<\/pre>\n<p>&nbsp;<\/p>\n<p style=\"color: #454545;\">\u4e3a\u4e86\u5bf9\u6bd4Delphi2009\u540e\u7684UnicodeString\u6027\u80fd\uff0c\u4e0a\u9762\u7684\u6d4b\u8bd5\u4ee3\u7801\u5728XE6 Update1\u4e0a\u6267\u884c\uff0c\u5e76\u52a0\u5165UnicodeString\u5bf9\u6bd4\uff0c\u7ed3\u679c\u5982\u4e0b\uff1a<\/p>\n<p style=\"color: #454545;\"><img decoding=\"async\" src=\"http:\/\/b.hiphotos.bdimg.com\/album\/pic\/item\/7e3e6709c93d70cffa02643bfbdcd100baa12b08.jpg\" alt=\"\" width=\"366\" \/><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u00a0 \u00a0 \u5728Delphi\u7684\u65e9\u671f\u7248\u672c\u4e2d\uff0c\u5e76\u6ca1 [&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],"tags":[15],"class_list":["post-55","post","type-post","status-publish","format-standard","hentry","category-delphi","tag--widestring"],"views":3492,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/55","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=55"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/55\/revisions"}],"predecessor-version":[{"id":56,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/55\/revisions\/56"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=55"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=55"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=55"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}