Changeset 50 for trunk/Target

Timestamp:

Jul 13, 2012, 1:37:51 PM (12 years ago)

Author:

chronos

Message:

• Added: Dialog for setting target options.

File:

• trunk/Target/UTarget.pas (modified) (3 diffs)

trunk/Target/UTarget.pas

@@ -257 +257 @@
     OpenKey(Key + '\Compiler', True);
     for I := 0 to Count - 1 do
-    with TTarget(Items[I]) do
-      if ValueExists(Name) then CompilerPath := ReadString(Name);
+      TTarget(Items[I]).LoadFromRegistry(Root, Key + '\Compiler');
   finally
     Free;
@@ -274 +273 @@
     for I := 0 to Count - 1 do
     with TTarget(Items[I]) do
-      if CompilerPath <> '' then WriteString(Name, CompilerPath)
-        else DeleteValue(Name);
+      TTarget(Items[I]).SaveToRegistry(Root, Key + '\Compiler');
   finally
     Free;
@@ -465 +463 @@
 procedure TTarget.LoadFromRegistry(Root: HKEY; Key: string);
 begin
-
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key + '\' + Name, True);
+    CompilerPath := ReadStringWithDefault('CompilerPath', CompilerPath);
+    ExecutorPath := ReadStringWithDefault('ExecutorPath', ExecutorPath);
+  finally
+    Free;
+  end;
 end;
 
 procedure TTarget.SaveToRegistry(Root: HKEY; Key: string);
 begin
-
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key + '\' + Name, True);
+    if CompilerPath <> '' then WriteString('CompilerPath', CompilerPath)
+      else DeleteValue('CompilerPath');
+    if ExecutorPath <> '' then WriteString('ExecutorPath', ExecutorPath)
+      else DeleteValue('ExecutorPath');
+  finally
+    Free;
+  end;
 end;