Added a method to remove author information from the style.

The code is not used yet.

Author: Crayon2000

StyleConverterApplication.cpp

@@ -89,6 +89,7 @@ void __fastcall TStyleConverterApplication::Run()
     try
     {
         LStyle = Fmx::Styles::TStyleStreaming::LoadFromFile(LInputFileName);
+        //RemoveAuthorInfo(LStyle);
         MemStream = new TMemoryStream();
         Fmx::Styles::TStyleStreaming::SaveToStream(
             LStyle, MemStream, LStyleFormat);
@@ -99,4 +100,23 @@ void __fastcall TStyleConverterApplication::Run()
         delete LStyle;
         delete MemStream;
     }
-}
+}
+
+/**
+ * This method will remove author information from the style.
+ * @param AObject A style object.
+ */
+void __fastcall TStyleConverterApplication::RemoveAuthorInfo(Fmx::Types::TFmxObject* AObject)
+{
+    for(int i = 0; i < AObject->ChildrenCount; ++i)
+    {
+        TStyleDescription* LDescription = dynamic_cast<TStyleDescription*>(AObject->Children->Items[i]);
+        if(LDescription != NULL)
+        {
+            LDescription->Author = "";
+            LDescription->AuthorURL = "";
+            LDescription->AuthorEMail = "";
+            break;
+        }
+    }
+}

StyleConverterApplication.h

@@ -4,12 +4,20 @@
 //---------------------------------------------------------------------------
 #include <System.hpp>
 //---------------------------------------------------------------------------
+namespace Fmx
+{
+    namespace Types
+    {
+        class TFmxObject;
+    }
+}
+
 class PACKAGE TStyleConverterApplication : public System::TObject
 {
     typedef System::TObject inherited; /**< Our parent's definition. */
 
 private:
-
+    void __fastcall RemoveAuthorInfo(Fmx::Types::TFmxObject* AObject);
 protected:
 
 public: