anchor.diff:    INIFiles;
   
   type
  +
  + { TEXE_INIFile }
  +
    TEXE_INIFile
    =
     class( TINIFile)
  +  //Gestion du cycle de vie
  +  public
  +    constructor Create(const AFileName: string; AEscapeLineFeeds : Boolean = False); overload; override;
  +    destructor Destroy; override;
  +  //ToolTip
     private
       function GetToolTip(Index: String): Boolean;
       procedure SetToolTip(Index: String; Value: Boolean);
     public
       property ToolTip[ Index: String]: Boolean read GetToolTip write SetToolTip;
       procedure Reset_ToolTips;
  -
  + //ValueList
  + public
       procedure ValueList_to_Section( Section: String; ValueList: TStrings);
       procedure Section_to_ValueList(Section: String; ValueList: TStrings);
     //Mode autonome
  
positive.code:   //Chemins
    private
      function  GetChemin( Key: String): String;
      procedure SetChemin( Key, Value  : String);
    public
      property Chemin[ Key:String]: String read GetChemin write SetChemin;
    //Chemin Global
  
negative.code: 
  end;
  
  procedure TEXE_INIFile.SetChemin( Key: String; Value: String);
  begin
       WriteString( 'Options', Key, Value);
  end;
  