执行时遵循代码路径在 xe2 中是匀称的,但在 xe3 中是荒谬的。
procedure TForm2.Button1Click(Sender: TObject);
var
Path : TPath;
begin
Path := TPath.Create(Self);
Path.Parent :=self;
Path.Data.Data :=
'M44.093,34.558v-2.83h12.793c4.131,0,8.301,3.841,8.301,8.969c0,4.375-2.829,7.607-6.49,8.462l8.106,8.105'+
'c5.475-3.377,9.456-9.446,9.456-16.705c0-9.971-7.978-19.658-18.804-19.658H32.697v2.262L44.093,34.558z';
end;