| Class TBag (unit Ubag) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Clear;
procedure CopyFromList(sl:TStringlist);
procedure CopyToList(sl:TStringlist);
function Count:integer;
procedure DeleteIni;
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;
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;