(*

Project: Class TIniHelper

Author: KodeZwerg

License: Freeware, Open Source.
        Free to use, if used and you like it a mentioned thankyou in credits would be nice.
        Feedback on one of my running Project sites is also very welcome, in good or bad way!

Description: small Unit to help easy interact with .ini files

features:
- support autogeneration on many aspects
- auto-mode supports either locate "X:\Users\UserName\AppData\Local\CurrentExeName\" or folder of CurrentExeName
- support easy sub-folder usage simply by adding "a sub\folder in\a sub\filename.ext" with or without leading slash
- you can specify full path + filename if you like else its autogenerated for you
- simple XOR encryption for ini file internals included if you enable it
- AES128 encryption for ini file values can be added
- simple autogenerate password feature for AES128 included
- easy Password changing possible

Limits:
- ATM bound to Windows.

Supported Pascal Versions:
- in theory all, written for >= Delphi 2009
- Prior Delphis might have trouble with UniCode
- Delphi with other Namespace will be supported soon

History:
- created as single methods to test things out
- added encryption for each method
- switched to class

current Version:
- preview release to show whats comming with full access on everything

Status:
- first open release
- pre-release has full control on properties, sideeffects very possible!!
- just included Type String to play with
- with all above features, you might find out more by happy testing :-]

Bugs:
- none know ATM... *yay*
- just missing all other types

Planned:
- include all missing
- fix all, like my current datetime convert issue where i prior need to set formatsettings, i hope than all be good with it

Used external Resources:
- wcrypt2.pas (included)
- independend AES128 example based on wcrypt2.pas (included)
- wcrypt2.pas dependend file encryption example (included) that later be used to crypt streams...
  wish me luck ;-)
- many threads on www.delphipraxis.net and nice discussions with good members over there *thankyou all!*
- stackoverflow i guess always involved to me :))

Project Sites: (latest file will be same)
- German Version: https://www.delphipraxis.net/198462-kodezwergs-tinihelper-klasse.html
- English Version: https://en.delphipraxis.net/topic/175-windows-ini-file-helper-unit/
- you need to sign up free membership to join discussion or download latest file

*)

type
  TIniHelper = class (TObject)
  private
    FAutoFolder: Boolean;
    FCrypt: Boolean;
    FSectionCrypt: Boolean;
    FIdentCrypt: Boolean;
    FPassword: String;
    FPasskey: Integer;
    FFilename: String;
    FSection: String;
    FIdent: String;
    FPath: String;
    FPathDelimiter: Char;
    FFileExists: Boolean;
    procedure SetFilename( const Filename: String = '' );
  published
    constructor Create( const Filename: string = ''; const AutoFolder: boolean = False; const Password: String = ''; const Crypt: Boolean = False; const Passkey: Integer = 0; const SectionCrypt: Boolean = False; const IdentCrypt: Boolean = False; const Section: String = ''; const Ident: String = ''; const PathDelimiter: Char = PathDelim );
    destructor Destroy; override;

    procedure Reset;
    procedure Init( const Section: string = ''; const Ident: string = '' );
    property Filename: string read FFilename write SetFilename;

    property AutoFolder: boolean read FAutoFolder write FAutoFolder;
    property Password: string read FPassword write FPassword;
    property Passkey: integer read FPasskey write FPasskey;
    property Section: string read FSection write FSection;
    property Ident: string read FIdent write FIdent;
    property Crypt: boolean read FCrypt write FCrypt;
    property SectionCrypt: boolean read FSectionCrypt write FSectionCrypt;
    property IdentCrypt: boolean read FIdentCrypt write FIdentCrypt;
    property PathDelimiter: Char read FPathDelimiter write FPathDelimiter;

    function ReadString( const Ident: string = ''; const Default: String = '' ): String;
    function WriteString( const Ident: string = ''; const Value: String = '' ): Boolean;
  end;

uses IniHelper;

...

var
  ini: TIniHelper;
begin
  ini := TIniHelper.Create(); // hier kann man alles mögliche initialisieren oder auch nichts, klappt alles hoffentlich ;-)

  ini := TIniHelper.Create( 'ininame.ext', True ); // so initialisiert man etwas was im AppData landet

// mit weiteren Werten der Create methode steuert man verschlüsselung
// hier ein komplexes Beispiel um standards nur einmal festlegen zu müssen
  ini := TIniHelper.Create( 'filename.ext', false, 'Mein AES Passwort', True, -967283, True, True, 'Setup' );


  if ini.WriteString('','x') = false then // schon hat man was in einer datei geschrieben... oder auch nicht, das zeigt diese auswertung
    Memo1.Lines.Add( 'Class write fail' )
    else
    Memo1.Lines.Add( 'Class write success' );

  ini.Filename := 'bla test\test.zwo'; // man kann jederzeit easy datei wechseln, mit oder ohne pfad

  ini.Init('was auch immer'); // so man kann jederzeit sein "root" wechseln oder beibehalten oder leer lassen :)