with TStringList.Cerate Do begin LoadFormFile :='my.ini'; ShowMessage(Strings[0]); Free; end;
with TStringList.Cerate Do begin LoadFormFile :='my.ini'; ShowMessage(Strings[0]); Free; end;
var myini:Tinifile; begin if not opendialog1.Execute then exit; try myini:=Tinifile.Create(opendialog1.FileName ); memo1.Lines.Add(myini.ReadString('inifile','net','没有东西') ); finally myini.Free; end; end;接分!引用inifiles
如果需要对ini文件的小节名、关键字、值,进行删除写入等操作,可以使用TIniFile类。
begin
LoadFormFile :='my.ini';
ShowMessage(Strings[0]);
Free;
end;
begin
LoadFormFile :='my.ini';
ShowMessage(Strings[0]);
Free;
end;
myini:Tinifile;
begin
if not opendialog1.Execute then exit;
try
myini:=Tinifile.Create(opendialog1.FileName );
memo1.Lines.Add(myini.ReadString('inifile','net','没有东西') );
finally myini.Free;
end;
end;接分!引用inifiles