home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk14 / doc.pak / INIFILES.INT < prev    next >
Encoding:
Text File  |  1995-08-24  |  1.3 KB  |  35 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Delphi Visual Component Library                 }
  4. {                                                       }
  5. {       Copyright (c) 1995 Borland International        }
  6. {                                                       }
  7. {*******************************************************}
  8.  
  9. unit IniFiles;
  10.  
  11. interface
  12.  
  13. uses WinTypes, Classes;
  14.  
  15. type
  16.   TIniFile = class(TObject)
  17.   public
  18.     constructor Create(const FileName: string);
  19.     destructor Destroy; override;
  20.     function ReadString(const Section, Ident, Default: string): string;
  21.     procedure WriteString(const Section, Ident, Value: String);
  22.     function ReadInteger(const Section, Ident: string;
  23.       Default: Longint): Longint;
  24.     procedure WriteInteger(const Section, Ident: string; Value: Longint);
  25.     function ReadBool(const Section, Ident: string;
  26.       Default: Boolean): Boolean;
  27.     procedure WriteBool(const Section, Ident: string; Value: Boolean);
  28.     procedure ReadSection(const Section: string; Strings: TStrings);
  29.     procedure ReadSectionValues(const Section: string; Strings: TStrings);
  30.     procedure EraseSection(const Section: string);
  31.     property FileName: string;
  32.   end;
  33.  
  34. implementation
  35.