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下正常。delphi2007下不正常。200分求助
- delphi 调用已建立的单元
- Integer => Word ?
- 有个小问题
- 客户端从服务器中取得的记录数累计等于表中总记录数时发生错误
- 世界杯冠军预测,大家认为世界杯的冠军是谁?
- fieldbyname('a').asdatetime,fieldbyname('b').asfloat怎么写入sql语句?
- 有些软件能把一个文件加入到另一个文件中,还能把它释放出来...
- 调用*.chm文件,帮助窗口不能弹出到用户窗口的DE前面,怎么办?
- 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;