急!怎么在退出整个工作时保存变量? 假设我在退出工程时,由前面的操作得到全局字符串变量a值为:a="hello"。退出后,当我再次运行程序时,a的值已不再是="hello"。而我希望此时a的值仍是上一次运行工程得到的值。请问我应该在退出整个程序时怎样保存得到的a的值? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 额有三种方法:1.保存到一个文件(如ini文件,txt文件等);2.写入注册表;3.写入你的数据库; 如果写入ini文件或txt文件该怎么样写呢?能不能请您给示范一下?我还没学过文件写的语法。 uses iniFiles;//程序启动的时候从ini文件中获得值给aprocedure TForm1.FormCreate(Sender: TObject);Var iniFileName:String; myinifile:TiniFile;begin {从ini文件中获得需要的值} iniFileName:=ExtractFilePath(paramstr(0))+'yourinifile.ini'; myinifile:=TInifile.Create(inifilename); a:= myinifile.readstring('标题','变量',''); //给a赋值 myinifile.Destroy;end;//程序退出的时候,把变量值存入ini文件procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);var iniFilename:string; myinifile:TiniFile;begin iniFileName:=ExtractFilePath(paramstr(0))+'yourinifile.ini'; myinifile:=TInifile.Create(inifilename); myinifile.WriteString('标题','变量',a); myinifile.Destroy;end; 指定进程添加控件 在Delphi中自己建立交叉表 Delphi 电驴下载地址! 如何做一个菜单?就是一直都显示在窗体正上方的 问一下:为什么delphi版块现在人气那么差?? 请问如何控制DBChart打印设置,打印预览,很急,谢谢 请问,如何安装及使用 ActiveBar 2.0 和 True DBGird Pro 7.0 报表窗体创建时即预览报表,如何在关闭预览使同时关闭窗体? Form2.OnResize的问题。 我学了一段时间的Delphi之后,发觉自已一下子很难提高,该怎么办? 如何将窗体的创建参数化 用DELPHI是一种信仰!
1.保存到一个文件(如ini文件,txt文件等);
2.写入注册表;
3.写入你的数据库;
能不能请您给示范一下?
我还没学过文件写的语法。
procedure TForm1.FormCreate(Sender: TObject);
Var
iniFileName:String;
myinifile:TiniFile;
begin
{从ini文件中获得需要的值}
iniFileName:=ExtractFilePath(paramstr(0))+'yourinifile.ini';
myinifile:=TInifile.Create(inifilename);
a:= myinifile.readstring('标题','变量',''); //给a赋值
myinifile.Destroy;
end;//程序退出的时候,把变量值存入ini文件
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
iniFilename:string;
myinifile:TiniFile;
begin
iniFileName:=ExtractFilePath(paramstr(0))+'yourinifile.ini';
myinifile:=TInifile.Create(inifilename);
myinifile.WriteString('标题','变量',a);
myinifile.Destroy;
end;