var z:textfile; begin assignfile(z,'d:\zz\123.ini'); rewrite(z); writeln(z,'[ee]'); writeln(z,'aa=dd'); writeln(z,'bb=ee'); closefile(z);
procedure TFrom1.button1click(sender: TObject); var Inifile: Tinifile; begin Inifile := TInifile.create('e:\myinifile'); with Inifile do begin writestring('ee','aa','dd'); writestring('ee','bb','cc'); writestring('ee','cc','ee'); destroy end; end;
iniFile:=TIniFile.create(文件名);
iniFile.Write.......//可查帮助
begin
assignfile(z,'d:\zz\123.ini');
rewrite(z);
writeln(z,'[ee]');
writeln(z,'aa=dd');
writeln(z,'bb=ee');
closefile(z);
var Inifile: Tinifile;
begin
Inifile := TInifile.create('e:\myinifile');
with Inifile do
begin
writestring('ee','aa','dd');
writestring('ee','bb','cc');
writestring('ee','cc','ee');
destroy
end;
end;