Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.236 by h677, Thu Sep 13 15:42:39 2007 UTC revision 1.237 by h677, Sat Oct 6 05:27:27 2007 UTC
# Line 306  const Line 306  const
306  // *************************************************************************  // *************************************************************************
307  constructor TGikoSys.Create;  constructor TGikoSys.Create;
308  begin  begin
309        Inherited;
310          FSetting := TSetting.Create;          FSetting := TSetting.Create;
311          FDolib := TDolib.Create;          FDolib := TDolib.Create;
312          FAWKStr := TAWKStr.Create(nil);          FAWKStr := TAWKStr.Create(nil);
# Line 356  begin Line 357  begin
357          finally          finally
358                  FileList.Free;                  FileList.Free;
359          end;          end;
360      FGikoMessage.Free;      FreeAndNil(FGikoMessage);
361          FBayesian.Free;          FreeAndNil(FBayesian);
362          FSelectResFilter.Free;          FreeAndNil(FSelectResFilter);
363          FAbon.Free;          FreeAndNil(FAbon);
364          FAWKStr.Free;          FreeAndNil(FAWKStr);
365          FDolib.Free;          FreeAndNil(FDolib);
366          FSetting.Free;          FreeAndNil(FSetting);
367          inherited;          inherited;
368  end;  end;
369    
# Line 3472  initialization Line 3473  initialization
3473    
3474  finalization  finalization
3475          if GikoSys <> nil then begin          if GikoSys <> nil then begin
3476                  GikoSys.Free;                  FreeAndNil(GikoSys);
                 GikoSys := nil;  
3477          end;          end;
3478  end.  end.

Legend:
Removed from v.1.236  
changed lines
  Added in v.1.237

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26