但是可以通过集合类来实现
例如你可以用Map这个类来实现
map.put(key,value)
键值对都是泛型
之后通过map.get(key)来获取
用ini文件...把在运行程序时设置的属性保存在ini文件里...在formOncreate的事件中读取ini文件首先要在文件夹下新建一个名为MyIni文件...
在窗体中添加一个Button1,和ColorDialog1..
Uses inifiles
//初始化配置
procedure TForm1.FormCreate(Sender: TObject)
var
myini:TIniFile
begin
if FileExists(ExtractFilePath(Application.ExeName)+'myini.ini') then
begin
myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'myini.ini')
self.Color:=myini.ReadInteger('config','fcolor',0)
myini.Free
end
end
//设置窗体颜色
procedure TForm1.Button1Click(Sender: TObject)
var
myini:TIniFile
begin
if FileExists(ExtractFilePath(Application.ExeName)+'myini.ini') then
begin
myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'myini.ini')
if ColorDialog1.Execute then
begin
myini.WriteInteger('Config','FColor',ColorDialog1.Color)
self.Color:=myini.ReadInteger('config','fcolor',0)
end
myini.Free
end
else
ShowMessage('MyIni文件不存在!')
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)