Delphi 在Edit1中输入内容如何让它实现保存功能,使下次打开程序Edit1中显示的就是该内容?
2个回答
展开全部
写在配置文件里面,具体如下
uses
Inifiles;
var
CnfFile: Tinifile;
begin
CnfFile := Tinifile.Create(ExtractFilePath(application.ExeName) + 'config.ini'); //创建时候设定好配置文件路径
CnfFile.WriteString('config', 'mystr', edit1.text); //写入记录,config为类别,mystr为名称,最后一个是值
CnfFile.free; //释放
end;
form在创建事件里面使用读取,和上面一样,就是写入的代码换成下面的
edit1.text := CnfFile.ReadString('Config', mystr, '') //最后一个参数为默认值,也就是当mystr这个名称在配置文件中不存在所默认设定的一个值
以下是配置文件中的记录格式
[config]
mystr=xxxxxxx
uses
Inifiles;
var
CnfFile: Tinifile;
begin
CnfFile := Tinifile.Create(ExtractFilePath(application.ExeName) + 'config.ini'); //创建时候设定好配置文件路径
CnfFile.WriteString('config', 'mystr', edit1.text); //写入记录,config为类别,mystr为名称,最后一个是值
CnfFile.free; //释放
end;
form在创建事件里面使用读取,和上面一样,就是写入的代码换成下面的
edit1.text := CnfFile.ReadString('Config', mystr, '') //最后一个参数为默认值,也就是当mystr这个名称在配置文件中不存在所默认设定的一个值
以下是配置文件中的记录格式
[config]
mystr=xxxxxxx
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询