[delphi技术]实现保存窗口上的所有Edit和checkbox状态的类

//unit SaveIni; TSaveStat类
//功能:实现保存一个TCustomControl中所有TCustomEdit类及子类的text
//    和TCheckBox类和子类的Checked 到Ini文件
//使用：在窗口创建时从ini文件读取设置
//  在窗口销毁时保存设置到Ini文件
//
//注意：一行文本字段最大是2050字节，所以文本的保存太长会有损失
//
//詹益辉 2005-6-1编写
//最后修改时间:2005-6-2

unit SaveIni;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles;

const
  RE_ENTER = #13#10;
  RE_ENTER2 = #13;
  //替换的字符
  RE_ENTER_REPLAY = #11;
  RE_ENTER_REPLAY2 = #12;
type
  TSaveStat = class(TObject)
  private
    _Form: TControl;
    _IniFileName: string;
    //procedure SaveToInt(Form:TCustomControl);
  protected
    procedure StrReplace(var s: string; substr1: string; substr2: string);
  public
    constructor Create(Form: TCon