1.ini读写操作

标签：文件   orm   nta   file   表示   span   读写   ams   扩展   

一、使用 TIniFile

implementation
var
  ini:tinifile;
  path:string;       {ini文件路径}
  section,key:string;{表示ini文件的小节、关键字}
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   path:=ChangeFileExt(ParamStr(0),‘ini‘); {ChangeFileExt改文件后缀扩展名
                                              paramstr(0):可执行程序完全路径d:\delphi\project1.exe
                                              或ExtractFilePath(ParamStr(0))+‘Config.ini‘)}
   ini:=TiniFile.Create(path);
end;

end.

1.ini读写操作

标签：文件   orm   nta   file   表示   span   读写   ams   扩展   

原文地址：https://www.cnblogs.com/jijm123/p/11297234.html