T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
我想设置一个全局BOOLEAN.想让他在下一次启动程序中，记住上次的状态，比如说上次是TRUE，我把程序关掉之后，第二次开机，他还是默认为TRUE，而不是赋空值？
S
szhcracker
Unregistered / Unconfirmed
GUEST, unregistred user!
LZ的积分增加的挺快的，哈哈，是否大方点儿？
H
hanyuhen1
Unregistered / Unconfirmed
GUEST, unregistred user!
将这个变量保存到配置文件，或者藏到注册表，都可以
李
李翔鹏
Unregistered / Unconfirmed
GUEST, unregistred user!
变量内存保存在INI文件，注册表，或数据表中都行。
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
我想也只有这个办法了。
U
ufo
Unregistered / Unconfirmed
GUEST, unregistred user!
没有初始值的全局变量在exe的磁盘文件上不占空间的，所以你想修改exe都不行。有初始值的全局变量，在exe磁盘文件上有内容，只是运行时修改exe是个难题。所以，一般这种情况，都是保存数据到外部配置文件。窗口创建时载入。
Z
znxia
Unregistered / Unconfirmed
GUEST, unregistred user!
将变量写入INI文件吧，案例如下：procedure TForm1.FormCreate(Sender: TObject);var ReturnStr
Char;begin ReturnStr:=StrAlloc(20)
GetPrivateProfileString('某系统','Password','',ReturnStr,20,'./Personal.ini')
IF ReturnStr='' then begin showmessage('as')
WritePrivateProfileString('某系统','PassworD','默认值','./Personal.ini')
end;end;程序关闭的时候，调用WritePrivateProfileString函数。
Char;begin ReturnStr:=StrAlloc(20)GetPrivateProfileString('某系统','Password','',ReturnStr,20,'./Personal.ini')
IF ReturnStr='' then begin showmessage('as')
WritePrivateProfileString('某系统','PassworD','默认值','./Personal.ini')
end;end;程序关闭的时候，调用WritePrivateProfileString函数。
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.