Changeset 8 for trunk/UInstance.pas

Timestamp:

Feb 9, 2011, 1:36:53 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Do not create new Lazarus config on every start.

File:

• trunk/UInstance.pas (modified) (2 diffs)

trunk/UInstance.pas

@@ -123 +123 @@
 var
   Config: TStringList;
+  ConfigFileName: string;
 begin
+  ConfigFileName := GetPath + DirectorySeparator + IDESource.ProjectShortName +
+    DirectorySeparator + 'config' + DirectorySeparator + 'environmentoptions.xml';
+  if not FileExistsUTF8(ConfigFileName) then
   try
     Config := TStringList.Create;
@@ -133 +137 @@
     Config.Text := StringReplace(Config.Text, '%FPCPlatform%', MainForm.Platform, [rfReplaceAll]);
     Config.Text := StringReplace(Config.Text, '%Temp%', GetEnvironmentVariableUTF8('Temp'), [rfReplaceAll]);
-    Config.SaveToFile(GetPath + DirectorySeparator + IDESource.ProjectShortName +
-      DirectorySeparator + 'config' + DirectorySeparator + 'environmentoptions.xml');
+    Config.SaveToFile(ConfigFileName);
   finally
     Config.Free;