Changeset 414 for ISPProgrammer

Timestamp:

Aug 17, 2012, 9:53:11 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Use parent TCommNode Active property instead custom in PinConnection package.

Location:

ISPProgrammer

Files:

• PRESTO/UPresto.pas (modified) (2 diffs)
• UISPProgrammer.pas (modified) (1 diff)

ISPProgrammer/PRESTO/UPresto.pas

@@ -402 +402 @@
 constructor TPrestoProgrammer.Create;
 begin
-  inherited Create;
+  inherited;
   Capabilities := [ipcErase, ipcWrite, ipcReset];
   Presto := TPresto.Create;
@@ -414 +414 @@
 destructor TPrestoProgrammer.Destroy;
 begin
-  Presto.Free;
-  inherited Destroy;
+  FreeAndNil(Presto);
+  inherited;
 end;
 

ISPProgrammer/UISPProgrammer.pas

@@ -138 +138 @@
 begin
   Active := False;
-  ExtPin.Free;
-  HexFile.Free;
+  FreeAndNil(ExtPin);
+  FreeAndNil(HexFile);
   inherited Destroy;
 end;