Changeset 13 for trunk/ImportZWebu.pas

Timestamp:

Nov 27, 2009, 8:36:34 AM (15 years ago)

Author:

george

Message:

• Opraveno: Všechny odkazy na starý web wow.zdechov.net opraveny na aktuální www.heroesoffantasy.cz.

File:

• trunk/ImportZWebu.pas (modified) (3 diffs)

trunk/ImportZWebu.pas

@@ -246 +246 @@
 procedure TForm8.LoadCountRegServers;
 var
-  reg: TRegistry;
+  Reg: TRegistry;
 begin
   Reg := TRegistry.Create;
   try
     // načítání pozice formuláře
-    if Reg.OpenKey(R+'CountSerers', False) then begin
+    if Reg.OpenKey(R + 'CountSerers', False) then begin
       CountWoWStatusServers := Reg.ReadInteger('WoWStatus');
       CountWoWResourceServers := Reg.ReadInteger('WoWResource');
     end;
   finally
-    reg.Free;
+    Reg.Free;
   end;
 end;
@@ -262 +262 @@
 procedure TForm8.SaveCountRegServers;
 var
-  reg: TRegistry;
+  Reg: TRegistry;
 begin
   Reg := TRegistry.Create;
@@ -268 +268 @@
   try
     // načítání pozice formuláře
-    if Reg.OpenKey(R+'CountSerers', True) then begin
-      Reg.WriteInteger('WoWStatus',CountWoWStatusServers);
-      Reg.WriteInteger('WoWResource',CountWoWResourceServers);
+    if Reg.OpenKey(R + 'CountSerers', True) then begin
+      Reg.WriteInteger('WoWStatus', CountWoWStatusServers);
+      Reg.WriteInteger('WoWResource', CountWoWResourceServers);
     end;
   finally
-    reg.Free;
+    Reg.Free;
   end;
 end;