CreadwriteINI=class
private
ini:Tmeminifile; //实际使用的快速INI访问类
bcommini:Boolean; //是否多个类实例共用一个现成的ini:Tmeminifile
smain:String; //当前章节
bread:Boolean; //当前主要进行加载还是保存
public
constructor create(vfn:String;vread:Boolean;vmain:String='main');
destructor destroy; override;
procedure setmain(vmain:String);
property rwmode:Boolean read bread write bread;
procedure clear;

function rw(vn:String;vd:String):String; overload;
function rw(vn:String;vd:Integer):Integer; overload;
function rw(vn:String;vd:Boolean):Boolean; overload;

procedure rw(vn:String;var vd:String;vinit:String); overload;
procedure rw(vn:String;var vd:char;vinit:char); overload;
procedure rw(vn:String;var vd:Integer;vinit:Integer); overload;
procedure rw(vn:String;var vd:Boolean;vinit:Boolean); overload;

//犹豫，下面的方法由于类的缘故，无论是否被使用，都会被编译，
//那么即使没有用到 Tlabel/Tedit/ TSpinEdit/ TradioButton/CheckBox/ Tcombobox/Tlistbox/
//这些控件都将被编译进EXE－－或者用条件编译分成2套？
procedure rw(vd:Tcontrol); overload; //调用方式最简单
procedure rw(vd:Tcontrol;vinit:Boolean;vn:String=''); overload;
procedure rw(vd:Tcontrol;vinit:String;vn:String=''); overload;
procedure rw(vd:Tcontrol;vinit:Integer;vn:String=''); overload;
end;