diff options
Diffstat (limited to 'UConfig.pas')
| -rw-r--r-- | UConfig.pas | 6 |
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); |