Advance Pascal Script (DWS Extanded)
TwtIni
TwtIni- -
Description
Hierarchytype TwtIni= class(TwtCustomINI)
property ACTIVE:Boolean;
property BINARYSTR:Boolean;
property ENCRYPT:Boolean;
property INIFILENAME:String;
property KEY:String;
property MODIFIED:Boolean;
property READONLY:Boolean;
procedure ClearData
procedure Close
constructor Create(filename: String)
procedure DeleteKey(Section: String; Ident: String)
procedure EraseSection(Section: String)
procedure LoadFromFile(filename: String)
procedure Open
function ReadBool(section: String; name: String; v: Boolean): Boolean
function ReadColor(section: String; name: String; v: TColor): TColor
function ReadDate(Section: String; Name: String; Default: TDateTime): TDateTime
function ReadDateTime(Section: String; Name: String; Default: TDateTime): TDateTime
function ReadFloat(section: String; name: String; v: Float): Float
function ReadInteger(section: String; name: String; v: Integer): Integer
procedure ReadSection(Section: String; Strings: TStrings)
procedure ReadSections(SL: TStrings)
procedure ReadSectionValues(Section: String; Strings: TStrings)
function readString(section: String; name: String; v: String): String
function readStringBin(section: String; name: String; v: String): String
procedure ReadStrings(Section: String; Name: String; Value: TStrings)
function ReadTime(Section: String; Name: String; Default: TDateTime): TDateTime
procedure SaveToFile(filename: String)
function SectionExists(section: String): Boolean
function ValueExists(Section: String; Ident: String): Boolean
procedure writeBool(section: String; name: String; v: Boolean)
procedure writeColor(section: String; name: String; v: TColor)
procedure WriteDate(Section: String; Name: String; Value: TDateTime)
procedure WriteDateTime(Section: String; Name: String; Value: TDateTime)
procedure writeFloat(section: String; name: String; v: Float)
procedure writeInteger(section: String; name: String; v: Integer)
procedure WriteSectionData(Section: String; v: TStrings)
procedure writeString(section: String; name: String; v: String)
procedure WriteStrings(Section: String; Name: String; Value: TStrings)
procedure WriteTime(Section: String; Name: String; Value: TDateTime)
end;
UP