* Inifile mag niet gemaakt worden bij openen

git-svn-id: trunk@6057 -

fcl/inc/inifiles.pp

@@ -465,13 +465,12 @@ begin
   FStream := nil;
   slLines := TStringList.Create;
   try
-    if FileExists(FFileName) then begin
+    if FileExists(FFileName) then 
+      begin
       // read the ini file values
       slLines.LoadFromFile(FFileName);
       FillSectionList(slLines);
-    end else
-      // create a new ini file
-      slLines.SaveToFile(FFileName);
+      end 
   finally
     slLines.Free;
   end;