delphi怎样保存变量？

wuxiaoman

例如，一个窗体，里面有，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

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

wuxiaoman

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

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

xenli

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文件');