Handle multiple file extensions

Resolves #1120769

1 files changed, 3 insertions, 3 deletions

diff --git a/UConfig.pas b/UConfig.pas
index 034fd11..9642930 100644
--- a/UConfig.pas
+++ b/UConfig.pas
@@ -607,8 +607,8 @@ begin
           Item := TFileAssoc.Create;
           with Item do begin
             if (Sections[i] = ConstFTAMetaDirectory) or (Sections[i] = ConstFTAMetaFile)
-              then Extensions := ''
-              else Extensions := Sections[i];
+              then SetLength(Extensions, 0)
+              else ParseString(Sections[i], ';', Extensions);
             FileTypeName := IniFile.ReadString(Sections[i], 'FileTypeName', '');
             DefaultAction := IniFile.ReadInteger(Sections[i], 'DefaultAction', 0);
             cnt := IniFile.ReadInteger(Sections[i], 'NumActions', 0);
@@ -661,7 +661,7 @@ begin
         with TFileAssoc(AssocList[i]) do begin
           if (FileTypeName = ConstFTAMetaDirectory) or (FileTypeName = ConstFTAMetaFile)
             then SectionTitle := FileTypeName
-            else SectionTitle := Extensions;
+            else SectionTitle := MakeString(';', Extensions);
           IniFile.EraseSection(SectionTitle);
           IniFile.WriteString(SectionTitle, 'FileTypeName', FileTypeName);
           IniFile.WriteString(SectionTitle, 'FileTypeIcon', FileTypeIcon);