Class TBag (unit Ubag)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Clear;


procedure CopyFromList(sl:TStringlist);


procedure CopyToList(sl:TStringlist);

invalid data found for placement

function Count:integer;


procedure DeleteIni;

raise EBagError.

procedure DelValue(AName: string);


destructor Destroy;


function GetBoolean(AName: string; ADef: Boolean): Boolean;


function GetByIndex(Index:integer; var AName,AValue:string): Boolean;


function GetColor(AName: string; ADef: TColor): TColor;


function GetExtended(AName: string; ADef: Extended): Extended;


function GetFont(AName: string; ADef: TFont): TFont;


procedure GetFormPlace(AName: string; AForm: TForm);


function GetInteger(AName: string; ADef: integer): integer;


function GetLongInt(AName: string; ADef: LongInt): LongInt;


function GetString(AName,ADef: string): string;


procedure ReadIni;


procedure read__intarray(AName: string; num:integer; arr:pointer);


procedure SetBoolean(AName: string; AValue: Boolean);


procedure SetColor(AName: string; AValue: TColor);


procedure SetExtended(AName: string; AValue: Extended);


procedure SetFiniFile(s:String);


procedure SetFont(AName: string; AValue: TFont);


procedure SetFormPlace(AName: string; AForm: TForm);


procedure SetInteger(AName: string; AValue: integer);


procedure SetLongInt(AName: string; AValue: LongInt);


procedure SetString(AName,AValue: string);


procedure WriteIni;

s1 := Uppercase(list1[ix]);

procedure write_intarray(AName: string; num:integer; arr:pointer);


function BagStrToInt(AString: string): longint;


procedure CheckIniParams;


function GetValue(AName: string): string;


procedure SetValue(AName,AValue: string);


Properties

property IniFile : string


property IniSect : string


Events

Variables

FCount : integer;


FFont : TFont;


FIniFile : string;


FiniSect : string;


NList : TStringList;


VList : TStringList;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Clear;


procedure CopyFromList(sl:TStringlist);


procedure CopyToList(sl:TStringlist);

invalid data found for placement


function Count:integer;


procedure DeleteIni;

raise EBagError.Create('No items to write to INI file');


procedure DelValue(AName: string);


destructor Destroy;


function GetBoolean(AName: string; ADef: Boolean): Boolean;


function GetByIndex(Index:integer; var AName,AValue:string): Boolean;


function GetColor(AName: string; ADef: TColor): TColor;


function GetExtended(AName: string; ADef: Extended): Extended;


function GetFont(AName: string; ADef: TFont): TFont;


procedure GetFormPlace(AName: string; AForm: TForm);


function GetInteger(AName: string; ADef: integer): integer;


function GetLongInt(AName: string; ADef: LongInt): LongInt;


function GetString(AName,ADef: string): string;


procedure ReadIni;


procedure read__intarray(AName: string; num:integer; arr:pointer);


procedure SetBoolean(AName: string; AValue: Boolean);


procedure SetColor(AName: string; AValue: TColor);


procedure SetExtended(AName: string; AValue: Extended);


procedure SetFiniFile(s:String);


procedure SetFont(AName: string; AValue: TFont);


procedure SetFormPlace(AName: string; AForm: TForm);


procedure SetInteger(AName: string; AValue: integer);


procedure SetLongInt(AName: string; AValue: LongInt);


procedure SetString(AName,AValue: string);


procedure WriteIni;

s1 := Uppercase(list1[ix]);


procedure write_intarray(AName: string; num:integer; arr:pointer);


function BagStrToInt(AString: string): longint;


procedure CheckIniParams;


function GetValue(AName: string): string;


procedure SetValue(AName,AValue: string);


Properties


property IniFile : string


property IniSect : string


Events


Variables


FCount : integer;


FFont : TFont;


FIniFile : string;


FiniSect : string;


NList : TStringList;


VList : TStringList;