B4A Class TIniFile - INI file handler class

Hi,

This is a class for handling Configuration Settings (INI) file like in MS Windows. I follow Delphi's names. Perhaps anyone comes from Delphi/Lazarus like me want to use TIniFile in B4A.

It is a simple code, but it's just enough for my current need. You may use, modify, or distribute anyway you want. If would be great if you inform me for any enhancement.


Cheers,

 

[Xenno]

Public Methods

Initialize
It is for initializing the object.

Declaration

Sub Initialize(prmDirName As String, prmFileName As String)

Example

Dim Ini As TIniFile
Ini.Initialize(File.DirInternal, "appname.ini")

GetDirName
Get directory name of the INI file.

Declaration

Sub GetDirName As String

Example

Dim IniDirName As String = Ini.GetDirName

GetFileName
Get file name of the INI file.

Declaration

Sub GetFileName As String

Example

Dim IniFileName As String = Ini.GetFileName

GetAutoFlush
Get property AutoFlush.

Declaration

Sub GetAutoFlush As Boolean

Example

Dim IniAutoFile As Boolean = Ini.GetAutoFlush

SetAutoFlush
Set property AutoFlush.

Declaration

Sub SetAutoFlush(prmValue As Boolean)

Example

Ini.SetAutoFlush(True)

ReadString
Read a string value based on key inside a section.

Declaration

Sub ReadString(prmSectionName As String, prmKeyName As String, prmDefault As String) As String

Example

Dim emailAddr As String = Ini.ReadString("Config", "email", "")

ReadInteger
Read an integer value based on key inside a section.

Declaration

Sub ReadInteger(prmSectionName As String, prmKeyName As String, prmDefault As Int) As Int

Example

Dim userAge As Int = Ini.ReadInteger("Config", "age", 18)

ReadBool
Read a boolean value based on key inside a section.

Declaration

Sub ReadBool(prmSectionName As String, prmKeyName As String, prmDefault As Boolean) As Boolean

Example

Dim isMarried As Boolean = Ini.ReadBool("Config", "married", False)

WriteString
Write a string value on key inside a section. Returns False when parameters invalid.

Declaration

Sub WriteString(prmSectionName As String, prmKeyName As String, prmValue As String) As Boolean

Example

Ini.WriteString("Config", "email", "[email protected]")

WriteInteger
Write an integer value on key inside a section. Returns False when parameters invalid.

Declaration

Sub WriteInteger(prmSectionName As String, prmKeyName As String, prmValue As Int) As Boolean

Example

Ini.WriteInteger("Config", "age", 23)

WriteBool
Write a boolean value on key inside a section. Returns False when parameters invalid.

Declaration

Sub WriteBool(prmSectionName As String, prmKeyName As String, prmValue As Boolean) As Boolean

Example

Ini.WriteInteger("Config", "married", True)

Flush
Perform writing to file. It might be automated by setting AutoFlush to True.

Declaration

Sub Flush

Example

Ini.Flush

 

[PABLO2013]

many tks

 

[Erel]

many tks

You should use the Like button instead.

 

[rraswisak]

Thank you for sharing,
Just one thing, you should mention that all Section and KeyName SHOULD be upper case