uses inifiles;var ini :TIniFile;ini := TIniFile.Create('file');
ShowMessage(ini.ReadString('Section', 'Name','Default'));
...
ini.Free;
ShowMessage(ini.ReadString('Section', 'Name','Default'));
...
ini.Free;
解决方案 »
- 不知道什麼時候變成“星星”了,散分吧!!!!
- 在delphi7中怎样撒消操作??
- 如何在MDI窗体一侧制作自动隐藏窗体,效果像MaxThon的侧边栏效果
- 关于对unsigned(僵哥)软件接口解释的疑问?
- 读取传奇世界的.SGL格式文件中图片
- 兄弟们帮帮忙呀!我的OUTLOOK里的邮件全都没有了!解决有高分!
- 请教简单问题,谢谢
- 保存文件出错!高手请进
- 谁能把 Double 类型转换成 String?
- 谁知道冰河的搜索功能是如何实现的?
- TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);居然不能打开正在执行的文件
- 我被五笔害了!!!
ipfile:=tinifile.Create(IPFFILE);
gIPF.TransNum := gTransData.TransNum;
ipfile.WriteString('gods','TransNum',inttostr(gIPF.TransNum));
ipfile.Free;
ipfile.Free;
//3.保存应用程序信息************************************************************
//==============================================================================
procedure SaveColumnState(FileName: string; Form: TForm; DBGrid: TDBGrid);
var IniFile: TIniFile;
i: integer;
begin
IniFile := TIniFile.Create(FileName);
//============================================================================
for i:=1 to DBGrid.Columns.Count do
begin
IniFile.WriteInteger(Form.Caption, DBGrid.Columns[i-1].FieldName+'.Width', DBGrid.Columns[i-1].Width);
IniFile.WriteBool(Form.Caption, DBGrid.Columns[i-1].FieldName+'.Visible', DBGrid.Columns[i-1].Visible);
end;
//============================================================================
IniFile.Free;
end;