TIniSection

type TIniSection = class

protected

  procedure Clear;

  function AddIdent();

  procedure SetIdentValue();

  function GetIdentValue();

public

  constructor Create();

  destructor Destroy; override;

  function AsString;

  function GetIdentIndex();

  function IdentExists();

  procedure WriteString();

  function ReadString();

  procedure WriteInteger();

  function ReadInteger();

  procedure WriteBool();

  function ReadBool();

  property SectionName: string; [rw]

  property ItemsCount: Integer; [r]

  property Items []: TIniSectionItem; default; [rw]

  property Capacity: Integer; [r]

end;

TIniSection

TObject