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

1. 
   
2. user inifiles;
   
3. //写ini
   
4. var
   
5.   inifile:Tinifile;
   
6.   user:string;
   
7. begin
   
8.   user:='admin';
   
9.   inifile:=Tinifile.Create(ExtractFilePath(ParamStr(0))\+'config.ini');
   
10.   try
    
11.     begin
    
12.       inifile.writestring('config','username',user);
    
13.     end;
    
14.   except
    
15.     Showmessage('创建INI文件失败！');
    
16.   end;
    
17. end;
    
18. 
    
19. //读ini
    
20. var
    
21.   inifile:Tinifile;
    
22. begin
    
23.   if fileexists(ExtractFilePath(ParamStr(0))\+'config.ini') then
    
24.   begin
    
25.     inifile:=Tinifile.Create(ExtractFilePath(ParamStr(0))\+'config.ini');
    
26.     try
    
27.       begin
    
28.         Edit1.Text :=inifile.ReadString('config','username','0');
    
29.       end;
    
30.       inifile.Free;
    
31.     except
    
32.       Showmessage('读取INI文件失败！');
    
33.     end;
    
34.   end
    
35.   else
    
36.   Showmessage('没有找到INI文件');
    

复制代码