Changeset 7 for trunk/UFormMain.pas

Timestamp:

May 2, 2014, 10:29:24 AM (10 years ago)

Author:

chronos

Message:

• Fixed: More robust configuration loading.
• Added: Show absolute path in missing items in comparison.

File:

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

trunk/UFormMain.pas

@@ -71 +71 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  Config.LoadFromDir('/home/chronos/Stažené/linux-3.14.1', 'x86');
+  Config.LoadFromDir('/home/jha/Projekty/fpc/kernel_options/linux-3.0', 'x86');
   Reload;
 end;
@@ -141 +141 @@
     Config2 := TConfigMenu.Create;
     Config.TopNode.SaveToList(List1);
-    Config2.LoadFromDir('/home/chronos/Stažené/linux-3.12.18', 'x86');
+    Config2.LoadFromDir('/opt/elinos-D6.0/linux/linux-p4-3.0/', 'p4');
     Config2.TopNode.SaveToList(List2);
     Config.CompareStringLists(List1, List2, Missing1, Missing2);
+    Config2.OptionListNames(Missing1);
+    Config.OptionListNames(Missing2);
     FormCompare.Memo1.Lines.Assign(Missing1);
     FormCompare.Memo2.Lines.Assign(Missing2);