* fix to store empty node also for tkastring, Mantis #21137

git-svn-id: trunk@20249 -

packages/fcl-base/src/rttiutils.pp

@@ -383,7 +383,7 @@ begin
       Exit;
     end;
     if (S <> '') or (PropInfo^.PropType^.Kind in [tkString
-      , tkLString,  tkWString, tkWChar ]) then
+      , tkLString, tkAString, tkWString, tkWChar ]) then
       WriteString(Section, GetItemName(PropInfo^.Name), Trim(S));
   end;
 end;