论坛 › Delphi交流 › delphi怎样保存变量？

wuxiaoman 发表于 2019-12-10 16:42:48

delphi怎样保存变量？

本帖最后由 wuxiaoman 于 2019-12-10 16:53 编辑

例如，一个窗体，里面有，button1,和edit1两个控件，有一个变量a=1

procedure TForm1.FormCreate(Sender: TObject);
var a:integer;

begin
a:=1;
edit1.Text :=inttostr(a);
end;

当程序运行后edit1显示的是1，当我在edit1里输入别的数如：2，点下buttton1,就让它保存；

当我关机后，再次打开程序让edit1里的数是2
（类似保存用户名一样）

要怎么做呢，先谢谢了

jackz007 发表于 2019-12-10 18:14:27

      如果是这样的话，你恐怕得动用 .ini 文件或注册表了，程序退出前，把这个参数记录到 .ini 文件或注册表中，程序启动的时候，再从 .ini 文件或注册表读取保存的数值，更新到界面上。

wuxiaoman 发表于 2019-12-10 22:04:35

jackz007 发表于 2019-12-10 18:14
如果是这样的话，你恐怕得动用 .ini 文件或注册表了，程序退出前，把这个参数记录到 .ini 文件或注册 ...

要怎么做呢？可以举个简单的例子吗

xenli 发表于 2020-1-14 09:20:49

user inifiles;
//写ini
var
inifile:Tinifile;
user:string;
begin
user:='admin';
inifile:=Tinifile.Create(ExtractFilePath(ParamStr(0))\+'config.ini');
try
    begin
      inifile.writestring('config','username',user);
    end;
except
    Showmessage('创建INI文件失败！');
end;
end;

//读ini
var
inifile:Tinifile;
begin
if fileexists(ExtractFilePath(ParamStr(0))\+'config.ini') then
begin
    inifile:=Tinifile.Create(ExtractFilePath(ParamStr(0))\+'config.ini');
    try
      begin
      Edit1.Text :=inifile.ReadString('config','username','0');
      end;
      inifile.Free;
    except
      Showmessage('读取INI文件失败！');
    end;
end
else
Showmessage('没有找到INI文件');

查看完整版本: delphi怎样保存变量？