home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / INIFILES.INT < prev    next >
Text File  |  1997-02-14  |  1KB  |  39 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {                                                       }
  6. {       Copyright (c) 1995,96 Borland International     }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit IniFiles;
  11.  
  12. {$R-}
  13.  
  14. interface
  15.  
  16. uses Windows, Classes;
  17.  
  18. type
  19.   TIniFile = class(TObject)
  20.   public
  21.     constructor Create(const FileName: string);
  22.     function ReadString(const Section, Ident, Default: string): string;
  23.     procedure WriteString(const Section, Ident, Value: String);
  24.     function ReadInteger(const Section, Ident: string;
  25.       Default: Longint): Longint;
  26.     procedure WriteInteger(const Section, Ident: string; Value: Longint);
  27.     function ReadBool(const Section, Ident: string;
  28.       Default: Boolean): Boolean;
  29.     procedure WriteBool(const Section, Ident: string; Value: Boolean);
  30.     procedure ReadSection(const Section: string; Strings: TStrings);
  31.     procedure ReadSections(Strings: TStrings);
  32.     procedure ReadSectionValues(const Section: string; Strings: TStrings);
  33.     procedure EraseSection(const Section: string);
  34.     procedure DeleteKey(const Section, Ident: String);
  35.     property FileName: string;
  36.   end;
  37.  
  38. implementation
  39.