Changeset 9 for trunk/UNetworkTest.pas

Timestamp:

Feb 11, 2008, 10:27:49 AM (17 years ago)

Author:

george

Message:

Opraveno: Některé neuvolňované pamětové struktury.
Opraveno: Chyba při ukončování a uvolňování paměti.

Location:

trunk

Files:

• . (modified) (1 prop)
• UNetworkTest.pas (modified) (4 diffs)

trunk/UNetworkTest.pas

@@ -29 +29 @@
     procedure SpinEdit1Change(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
   private
     { Private declarations }
@@ -66 +67 @@
   Row: string;
 
+const
+  NetworkFileName = 'Network.cfg';
+
 function Parse: string;
 begin
@@ -77 +81 @@
     PingList := TPingList.Create(True);
     ChDir(ExtractFileDir(Application.ExeName));
-    AssignFile(Soubor, 'Network.cfg');
-    Reset(Soubor);
+    AssignFile(Soubor, NetworkFileName);
+    if FileExists(NetworkFileName) then Reset(Soubor) else Rewrite(Soubor);
     SetLength(Devices, 1);
     while not Eof(Soubor) do begin
@@ -102 +106 @@
 end;
 
+procedure TNetworkTest.FormDestroy(Sender: TObject);
+begin
+  PingList.Free;
+end;
+
 procedure TNetworkTest.FormShow(Sender: TObject);
 begin