From 13743890d592beecec6461d7ab7233027435a2ef Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 4 Feb 2012 15:42:57 +0000
Subject: [PATCH]  * fix to store empty node also for tkastring, Mantis #21137

git-svn-id: trunk@20249 -
---
 packages/fcl-base/src/rttiutils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/rttiutils.pp b/packages/fcl-base/src/rttiutils.pp
index 7a7cf14512..fc8ef7a70f 100644
--- a/packages/fcl-base/src/rttiutils.pp
+++ b/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;