Changeset 13 for trunk/UAutoRegistry.pas

Timestamp:

Feb 11, 2008, 2:14:42 PM (16 years ago)

Author:

george

Message:

Opraveno: Načítání seznamu síťových adaptérů na Linuxu.
Přidáno: Úpravy pro potřeby ladění problému s nepřijímáním UDP paketů.

File:

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

trunk/UAutoRegistry.pas

@@ -30 +30 @@
 
 implementation
+
+uses
+  Dialogs, SysUtils;
 
 constructor TAutoRegistry.Create(Path: string);
@@ -82 +85 @@
       OpenKey(FPath, True);
       for I:= 0 to High(FItems) do with FItems[I] do begin
-        if Typ=1 then WriteInteger(Nazev,Integer(Data^)) else
-        if Typ=3 then WriteBool(Nazev,Boolean(Data^)) else
-        if Typ=4 then WriteFloat(Nazev,real(Data^)) else
-        if Typ=2 then WriteString(Nazev,string(Data^));
+        if Typ = 1 then WriteInteger(Nazev,Integer(Data^)) else
+        if Typ = 3 then WriteBool(Nazev,Boolean(Data^)) else
+        if Typ = 4 then WriteFloat(Nazev, real(Data^)) else
+        if Typ = 2 then WriteString(Nazev, string(Data^));
       end;
     finally