# revisions: 44255

git-svn-id: branches/fixes_3_2@45690 -

packages/ide/fpini.pas

@@ -118,6 +118,7 @@ const
   ieCompileMode      = 'CompileMode';
   iePalette          = 'Palette';
   ieHelpFiles        = 'Files';
+  ieHelpFile        = 'File';
   ieDefaultTabSize   = 'DefaultTabSize';
   ieDefaultIndentSize = 'DefaultIndentSize';
   ieDefaultEditorFlags='DefaultFlags';
@@ -456,6 +457,7 @@ begin
         SwitchesMode:=ts;
     end;
   { Help }
+  { Reading single string with help-file names }
   S:=INIFile^.GetEntry(secHelp,ieHelpFiles,'');
   repeat
     P:=Pos(';',S); if P=0 then P:=length(S)+1;
@@ -463,6 +465,13 @@ begin
     if PS<>'' then HelpFiles^.Insert(NewStr(PS));
     Delete(S,1,P);
   until S='';
+  { Reading separate strings with help-file names }
+  I:=1;
+  repeat
+    S:=INIFile^.GetEntry(secHelp,ieHelpFile + IntToStr(I),'');
+    inc(I);
+    if S<>'' then HelpFiles^.Insert(NewStr(S));
+  until S='';
   { Editor }
   DefaultTabSize:=INIFile^.GetIntEntry(secEditor,ieDefaultTabSize,DefaultTabSize);
   DefaultIndentSize:=INIFile^.GetIntEntry(secEditor,ieDefaultIndentSize,DefaultIndentSize);
@@ -583,15 +592,9 @@ var INIFile: PINIFile;
     S: string;
     S1,S2,S3: string;
     W: word;
-    BreakPointCount,WatchesCount:longint;
+    HelpFileCount, BreakPointCount,WatchesCount:longint;
     I(*,OpenFileCount*): integer;
     OK: boolean;
-
-procedure ConcatName(P: PString);
-begin
-  if (S<>'') then S:=S+';';
-  S:=S+P^;
-end;
 begin
 {$ifdef Unix}
   if not FromSaveAs and (DirOf(IniFileName)=DirOf(SystemIDEDir)) then
@@ -679,10 +682,16 @@ begin
   { Compile }
   INIFile^.SetEntry(secCompile,iePrimaryFile,PrimaryFile);
   INIFile^.SetEntry(secCompile,ieCompileMode,SwitchesModeStr[SwitchesMode]);
-  { Help }
-  S:='';
-  HelpFiles^.ForEach(@ConcatName);
-  INIFile^.SetEntry(secHelp,ieHelpFiles,EscapeIniText(S));
+  { Deleting single string with help-files list }
+  INIFile^.DeleteEntry(secHelp, ieHelpFiles);
+  { Saving help-files as separate strings }
+  { Will it produce compatibility problems? }
+  HelpFileCount:=HelpFiles^.Count;
+  for I := 1 to HelpFileCount do
+    begin
+      S:=HelpFiles^.At(I-1)^;
+      INIFile^.SetEntry(secHelp, ieHelpFile + IntToStr(I), EscapeIniText(S));
+    end;
   { Editor }
   INIFile^.SetIntEntry(secEditor,ieDefaultTabSize,DefaultTabSize);
   INIFile^.SetIntEntry(secEditor,ieDefaultIndentSize,DefaultIndentSize);