tstatfile

unit msestatfile;

type
 tstatfile = class(tactcomponent,istatfile)
 

  public
 

   constructor create  ????????? ??????? ?????? ?????????
 

   procedure initnewcomponent(const ascale: real); override;
 

   procedure readstat(stream: ttextstream = nil); overload;
 

   procedure readstat(const aname: msestring; const statreader: tstatreader); overload;
 

   procedure writestat(const stream: ttextstream = nil); overload;
 

   procedure writestat(const aname: msestring; const statwriter: tstatwriter); overload;
 

   procedure updatestat(const aname: msestring; const statfiler: tstatfiler);

  published

   property filename: ????????? ?????? ??? ????? ??? ????????
 

   property filedir: filenamety  ????? ? ??????? ????????? ????
 

   property encoding: ????????? ?????.
 

   property options: statfileoptionsty read foptions write setoptions
                              default defaultstatfileoptions;
 

   property statfile: tstatfile read fstatfile write setstatfile;
            //filename is stored in linked statfile, dostatread and dostatwrite are
            //called by linked statfile
 

   property savedmemoryfiles: msestring read fsavedmemoryfiles write
                           fsavedmemoryfiles;
            //use quotes for several filenames '"file1.sta" "file2.sta*"',
            //'*' and '?' wildcards supported.
 

   property statvarname: msestring read getstatvarname write fstatvarname;
 

   property activator;
 

   property onstatupdate: statupdateeventty read fonstatupdate write fonstatupdate;
 

   property onstatread: statreadeventty read fonstatread write fonstatread;
 

   property onstatwrite: statwriteeventty read fonstatwrite write fonstatwrite;
 

   property onstatbeforewrite: notifyeventty read fonstatbeforewrite write fonstatbeforewrite;
 

   property onstatafterwrite: notifyeventty read fonstatafterwrite write fonstatafterwrite;
 

   property onstatbeforeread: notifyeventty read fonstatbeforeread write fonstatbeforeread;
 

   property onstatafterread: notifyeventty read fonstatafterread write fonstatafterread;
 

 end;
 

unit msestatfile;

type
 tstatfile = class(tactcomponent,istatfile)
 

  public
 

   constructor create  ????????? ??????? ?????? ?????????
 

   procedure initnewcomponent(const ascale: real); override;
 

   procedure readstat(stream: ttextstream = nil); overload;
 

   procedure readstat(const aname: msestring; const statreader: tstatreader); overload;
 

   procedure writestat(const stream: ttextstream = nil); overload;
 

   procedure writestat(const aname: msestring; const statwriter: tstatwriter); overload;
 

   procedure updatestat(const aname: msestring; const statfiler: tstatfiler);

  published

   property filename: ????????? ?????? ??? ????? ??? ????????
 

   property filedir: filenamety  ????? ? ??????? ????????? ????
 

   property encoding: ????????? ?????.
 

   property options: statfileoptionsty read foptions write setoptions
                              default defaultstatfileoptions;
 

   property statfile: tstatfile read fstatfile write setstatfile;
            //filename is stored in linked statfile, dostatread and dostatwrite are
            //called by linked statfile
 

   property savedmemoryfiles: msestring read fsavedmemoryfiles write
                           fsavedmemoryfiles;
            //use quotes for several filenames '"file1.sta" "file2.sta*"',
            //'*' and '?' wildcards supported.
 

   property statvarname: msestring read getstatvarname write fstatvarname;
 

   property activator;
 

   property onstatupdate: statupdateeventty read fonstatupdate write fonstatupdate;
 

   property onstatread: statreadeventty read fonstatread write fonstatread;
 

   property onstatwrite: statwriteeventty read fonstatwrite write fonstatwrite;
 

   property onstatbeforewrite: notifyeventty read fonstatbeforewrite write fonstatbeforewrite;
 

   property onstatafterwrite: notifyeventty read fonstatafterwrite write fonstatafterwrite;
 

   property onstatbeforeread: notifyeventty read fonstatbeforeread write fonstatbeforeread;
 

   property onstatafterread: notifyeventty read fonstatafterread write fonstatafterread;
 

 end;
 

unit msestatfile;

type
 tstatfile = class(tactcomponent,istatfile)
 

  public
 

   constructor create  Позволяет создать данный компонент
 

   procedure initnewcomponent(const ascale: real); override;
 

   procedure readstat(stream: ttextstream = nil); overload;
 

   procedure readstat(const aname: msestring; const statreader: tstatreader); overload;
 

   procedure writestat(const stream: ttextstream = nil); overload;
 

   procedure writestat(const aname: msestring; const statwriter: tstatwriter); overload;
 

   procedure updatestat(const aname: msestring; const statfiler: tstatfiler);

  published

   property filename: Позволяет задать имя файла для настроек
 

   property filedir: filenamety  Папка в которой находится файл
 

   property encoding: Кодировка файла.
 

   property options: statfileoptionsty read foptions write setoptions
                              default defaultstatfileoptions;
 

   property statfile: tstatfile read fstatfile write setstatfile;
            //filename is stored in linked statfile, dostatread and dostatwrite are
            //called by linked statfile
 

   property savedmemoryfiles: msestring read fsavedmemoryfiles write
                           fsavedmemoryfiles;
            //use quotes for several filenames '"file1.sta" "file2.sta*"',
            //'*' and '?' wildcards supported.
 

   property statvarname: msestring read getstatvarname write fstatvarname;
 

   property activator;
 

   property onstatupdate: statupdateeventty read fonstatupdate write fonstatupdate;
 

   property onstatread: statreadeventty read fonstatread write fonstatread;
 

   property onstatwrite: statwriteeventty read fonstatwrite write fonstatwrite;
 

   property onstatbeforewrite: notifyeventty read fonstatbeforewrite write fonstatbeforewrite;
 

   property onstatafterwrite: notifyeventty read fonstatafterwrite write fonstatafterwrite;
 

   property onstatbeforeread: notifyeventty read fonstatbeforeread write fonstatbeforeread;
 

   property onstatafterread: notifyeventty read fonstatafterread write fonstatafterread;
 

 end;