{"id":6041,"date":"2025-08-05T09:12:30","date_gmt":"2025-08-05T01:12:30","guid":{"rendered":"https:\/\/blog.qdac.cc\/?p=6041"},"modified":"2025-08-05T09:12:30","modified_gmt":"2025-08-05T01:12:30","slug":"%e6%95%99%e7%a8%8b%e4%b8%ba-fmx-tpathdata-%e5%a2%9e%e5%8a%a0%e6%97%8b%e8%bd%ac%e5%8f%8a%e7%bc%96%e7%a0%81%e4%bc%98%e5%8c%96","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=6041","title":{"rendered":"[\u6559\u7a0b]\u4e3a FMX TPathData \u589e\u52a0\u65cb\u8f6c\u53ca\u7f16\u7801\u4f18\u5316"},"content":{"rendered":"\n<p class=\"wp-block-paragraph\">\u8bdd\u4e0d\u591a\u8bf4\uff0c\u76f4\u63a5 Show code:<\/p>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>1.  \u58f0\u660e<\/strong><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>TZPathData = class helper for TPathData\nprivate\n    function GetAsBytes:TBytes;\n    function SetAsBytes(const ABytes:TBytes);\n    function GetAsString:String;\n    function SetAsString(const S:String);\npublic\n    procedure Rotate(const Angle:Single);\n    property AsString:String read GetAsString write SetAsString;\n    property AsBytes:TBytes read GetAsBytes write SetAsBytes;\nend;<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>Rotate : \u5c06\u5f53\u524d\u8def\u5f84\u65cb\u8f6c\u6307\u5b9a\u7684\u89d2\u5ea6<\/li>\n\n\n\n<li>AsString : \u7528\u4e8e\u66ff\u6362 Data \u5c5e\u6027\uff0c\u91cd\u65b0\u5b9e\u9645\u7f16\u7801\u51fd\u6570\uff0c\u4ee5\u51cf\u5c11\u751f\u6210\u7684\u8def\u5f84\u5b57\u7b26\u4e32\u4f53\u79ef<\/li>\n\n\n\n<li>AsBytes : \u6309\u4e8c\u8fdb\u5236\u7684\u65b9\u5f0f\u6765\u8fdb\u4e00\u6b65\u7f16\u7801\u538b\u7f29\u8def\u5f84\u6570\u636e<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>2.  \u5b9e\u73b0<\/strong><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>function TZPathData.GetAsBytes: TBytes;\n\/\/ \u538b\u7f29\u4e0b\u6307\u4ee4\uff0c\u76f4\u63a5\u540e\u9762\u8ddf\u6700\u591a63\u4e2a\u540c\u4e00\u7c7b\u578b\u7684\u503c\n\/\/ &#91;Op:2]&#91;Count:6]&#91;DataArray]\n\/\/ DataArray \u5b58\u50a8\u7684\u662f\u7edd\u5bf9\u5750\u6807\uff0c\u5355\u7cbe\u5ea6\u662f32\u4f4d\uff0c\u8fd9\u5757\u6211\u4eec\u4e0d\u518d\u538b\u7f29\uff0c\u6bd5\u7adf\u548c\u635f\u5931\u7cbe\u5ea6\u76f8\u6bd4\uff0c\u6536\u76ca\u5e76\u4e0d\u660e\u663e\nvar\n  I, ACount: Integer;\nconst\n  OpCodes: array &#91;TZPathPointKind] of Byte = (OP_MOVE_TO, OP_LINE_TO, OP_CURVE_TO, OP_CLOSE);\n  procedure MovePoints(AKind: TZPathPointKind; AItemPoints: Integer);\n  var\n    pValue: PPointF;\n    c: Integer;\n  begin\n    Result&#91;ACount] := OpCodes&#91;AKind];\n    pValue := @Result&#91;ACount + 1];\n    repeat\n      for c := 0 to AItemPoints - 1 do\n      begin\n        pValue^ := FPathData&#91;I].Point;\n        Inc(pValue);\n        Inc(I);\n      end;\n      Result&#91;ACount] := OpCodes&#91;AKind] or ((Result&#91;ACount] and $3F) + 1);\n    until (I = Count) or (FPathData&#91;I].Kind &lt;> AKind) or (I = 63);\n    Inc(ACount, 1 + (Result&#91;ACount] and $3F) * AItemPoints * SizeOf(TPointF));\n  end;\n\nbegin\n  I := 0;\n  ACount := 0;\n  SetLength(Result, (1 + Count * SizeOf(Single) * 3) * Count);\n  while I &lt; Count do\n  begin\n    case FPathData&#91;I].Kind of\n      TZPathPointKind.MoveTo, TZPathPointKind.LineTo:\n        MovePoints(FPathData&#91;I].Kind, 1);\n      TZPathPointKind.CurveTo:\n        MovePoints(FPathData&#91;I].Kind, 3);\n      TZPathPointKind.Close:\n        begin\n          Result&#91;ACount] := OP_CLOSE;\n          Inc(ACount);\n          Inc(I);\n        end;\n    end;\n  end;\n  SetLength(Result, ACount);\nend;\n\nprocedure TZPathData.SetAsBytes(const ABytes: TBytes);\nvar\n  I, ACount: Integer;\nbegin\n  I := 0;\n  FPathData.Clear;\n  while I &lt; Length(ABytes) do\n  begin\n    case ABytes&#91;I] and $C0 of\n      OP_MOVE_TO:\n        begin\n          ACount := ABytes&#91;I] and $3F;\n          Inc(I);\n          repeat\n            MoveTo(PPointF(@ABytes&#91;I])^);\n            Inc(I, SizeOf(TPointF));\n            Dec(ACount);\n          until (ACount = 0) or (I = Length(ABytes));\n        end;\n      OP_LINE_TO:\n        begin\n          ACount := ABytes&#91;I] and $3F;\n          Inc(I);\n          repeat\n            LineTo(PPointF(@ABytes&#91;I])^);\n            Inc(I, SizeOf(TPointF));\n            Dec(ACount);\n          until (ACount = 0) or (I = Length(ABytes));\n        end;\n      OP_CURVE_TO:\n        begin\n          ACount := ABytes&#91;I] and $3F;\n          Inc(I);\n          repeat\n            CurveTo(PPointF(@ABytes&#91;I])^, PPointF(@ABytes&#91;I + SizeOf(TPointF)])^,\n              PPointF(@ABytes&#91;I + SizeOf(TPointF) * 2])^);\n            Inc(I, SizeOf(TPointF) * 3);\n            Dec(ACount);\n          until (ACount = 0) or (I = Length(ABytes));\n        end;\n      OP_CLOSE:\n        begin\n          ClosePath;\n          Inc(I);\n        end;\n    end;\n  end;\nend;\n\nprocedure TZPathData.Rotate(const Angle: Single);\nbegin\n  ApplyMatrix(TMatrix.CreateRotation(Angle));\nend;\n\nfunction TZPathData.GetAsString: string;\nvar\n  I: Integer;\n  Builder: TStringBuilder;\n  ALastPos, pt: TPointF;\n  ALastKind: TZPathPointKind;\n  AIsRelative: Boolean;\nbegin\n  \/\/ \u4ee3\u7801\u4f18\u5316\u81ea FMX \u7684 TPathData\uff0c\u901a\u8fc7\u51cf\u5c11\u91cd\u590d\u6307\u4ee4\u548c\u4f7f\u7528\u76f8\u5bf9\u5750\u6807\u6765\u51cf\u5c11\u5185\u5bb9\n  Builder := TStringBuilder.Create;\n  try\n    I := 0;\n    AIsRelative := False;\n    ALastKind := TZPathPointKind.Close;\n    while I &lt; Count do\n    begin\n      if AIsRelative then\n      begin\n        pt.X := FPathData&#91;I].Point.X - ALastPos.X;\n        pt.Y := FPathData&#91;I].Point.Y - ALastPos.Y;\n        case FPathData&#91;I].Kind of\n          TZPathPointKind.MoveTo:\n            begin\n              if ALastKind &lt;> FPathData&#91;I].Kind then\n                Builder.Append('m');\n              Builder.Append(FloatToStr(pt.X, TFormatSettings.Invariant)).Append(',')\n                .Append(FloatToStr(pt.Y, TFormatSettings.Invariant)).Append(' ');\n            end;\n          TZPathPointKind.LineTo:\n            begin\n              if ALastKind &lt;> FPathData&#91;I].Kind then\n                Builder.Append('l');\n              Builder.Append(FloatToStr(pt.X, TFormatSettings.Invariant)).Append(',')\n                .Append(FloatToStr(pt.Y, TFormatSettings.Invariant)).Append(' ');\n            end;\n          TZPathPointKind.CurveTo:\n            begin\n              if ALastKind &lt;> FPathData&#91;I].Kind then\n                Builder.Append('c');\n              Builder.Append(FloatToStr(pt.X, TFormatSettings.Invariant)).Append(',')\n                .Append(FloatToStr(pt.Y, TFormatSettings.Invariant)).Append(' ');\n\n              Builder.Append(FloatToStr(FPathData&#91;I + 1].Point.X - ALastPos.X, TFormatSettings.Invariant)).Append(',')\n                .Append(FloatToStr(FPathData&#91;I + 1].Point.Y - ALastPos.Y, TFormatSettings.Invariant)).Append(' ');\n\n              Builder.Append(FloatToStr(FPathData&#91;I + 2].Point.X - ALastPos.X, TFormatSettings.Invariant)).Append(',')\n                .Append(FloatToStr(FPathData&#91;I + 2].Point.Y - ALastPos.Y, TFormatSettings.Invariant)).Append(' ');\n\n              Inc(I, 2);\n            end;\n          TZPathPointKind.Close:\n            begin\n              Builder.Append('Z ');\n              AIsRelative := False;\n            end;\n        end;\n      end\n      else\n      begin\n        AIsRelative := True;\n        case FPathData&#91;I].Kind of\n          TZPathPointKind.MoveTo:\n            Builder.Append('M').Append(FloatToStr(FPathData&#91;I].Point.X, TFormatSettings.Invariant)).Append(',')\n              .Append(FloatToStr(FPathData&#91;I].Point.Y, TFormatSettings.Invariant)).Append(' ');\n          TZPathPointKind.LineTo:\n            Builder.Append('L').Append(FloatToStr(FPathData&#91;I].Point.X, TFormatSettings.Invariant)).Append(',')\n              .Append(FloatToStr(FPathData&#91;I].Point.Y, TFormatSettings.Invariant)).Append(' ');\n          TZPathPointKind.CurveTo:\n            begin\n              Builder.Append('C').Append(FloatToStr(FPathData&#91;I].Point.X, TFormatSettings.Invariant)).Append(',')\n                .Append(FloatToStr(FPathData&#91;I].Point.Y, TFormatSettings.Invariant)).Append(' ');\n\n              Builder.Append(FloatToStr(FPathData&#91;I + 1].Point.X, TFormatSettings.Invariant)).Append(',')\n                .Append(FloatToStr(FPathData&#91;I + 1].Point.Y, TFormatSettings.Invariant)).Append(' ');\n\n              Builder.Append(FloatToStr(FPathData&#91;I + 2].Point.X, TFormatSettings.Invariant)).Append(',')\n                .Append(FloatToStr(FPathData&#91;I + 2].Point.Y, TFormatSettings.Invariant)).Append(' ');\n\n              Inc(I, 2);\n            end;\n          TZPathPointKind.Close:\n            begin\n              Builder.Append('Z ');\n              AIsRelative := False;\n            end;\n        end;\n      end;\n      ALastKind := FPathData&#91;I].Kind;\n      ALastPos := FPathData&#91;I].Point;\n      Inc(I);\n    end;\n    Result := Builder.ToString(True);\n  finally\n    Builder.Free;\n  end;\nend;\nprocedure TZPathData.SetAsString(const Value: string);\nbegin\n  Data:=Value;\nend;\n<\/code><\/pre>\n\n\n\n<p class=\"wp-block-paragraph\"><strong>3. \u5b9e\u9645\u6548\u679c<\/strong><\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u539f\u59cb\u8def\u5f84\u56fe\u50cf:<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2025\/08\/\u56fe\u7247.png\"><img loading=\"lazy\" decoding=\"async\" width=\"289\" height=\"160\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2025\/08\/\u56fe\u7247.png\" alt=\"\" class=\"wp-image-6042\"\/><\/a><\/figure>\n\n\n\n<ul class=\"wp-block-list\">\n<li> \u901a\u8fc7 Data \u5c5e\u6027\u83b7\u53d6\u8def\u5f84\u5b57\u7b26\u4e32\u957f\u5ea6: 2303 \u5b57\u8282 (100%)<\/li>\n\n\n\n<li>\u4f7f\u7528 AsString \u5c5e\u6027\u83b7\u53d6\u8def\u5f84\u5b57\u7b26\u4e32\u957f\u5ea6: 1841 \u5b57\u8282 (79.9%)<\/li>\n\n\n\n<li>\u901a\u8fc7 AsBytes \u751f\u6210\u7684\u4e8c\u8fdb\u5236\u5e8f\u5217\u957f\u5ea6: 796 \u5b57\u8282 (34.6%)<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">\u65cb\u8f6c 45 \u5ea6\u540e\u7684\u56fe\u50cf:<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2025\/08\/\u56fe\u7247-1.png\"><img loading=\"lazy\" decoding=\"async\" width=\"289\" height=\"162\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2025\/08\/\u56fe\u7247-1.png\" alt=\"\" class=\"wp-image-6043\"\/><\/a><\/figure>\n\n\n\n<p class=\"wp-block-paragraph\"><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u8bdd\u4e0d\u591a\u8bf4\uff0c\u76f4\u63a5 Show code: 1 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","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":[],"class_list":["post-6041","post","type-post","status-publish","format-standard","hentry","category-delphi"],"views":898,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/6041","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=6041"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/6041\/revisions"}],"predecessor-version":[{"id":6044,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/6041\/revisions\/6044"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6041"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6041"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6041"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}