//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
[delphi技术]实现保存窗口上的所有Edit和checkbox状态的类
最新推荐文章于 2023-12-19 23:45:53 发布
这是一个用Delphi编写的TSaveStat类,用于保存TCustomEdit和TCheckBox控件的状态(文本和选中状态)到Ini文件。在窗口创建时从Ini文件读取设置,窗口销毁时保存设置。类库中包含了StrReplace方法进行字符串替换,以及构造函数和析构函数来处理 Ini 文件的读写操作。
摘要由CSDN通过智能技术生成