procedure THIini._work_doClearAll;
var StrList:PStrList;
I:integer;
begin
Ini := OpenIniFile(ReadFileName(ReadString(_Data,_data_FileName,_prop_FileName)));
Ini.Mode := ifmRead;
StrList := NewStrList;
Ini.GetSectionNames(strList);
Ini.Mode := ifmWrite;
for i := 0 to strList.Count-1 do
begin
Ini.Section := strList.Items[i];
Ini.ClearSection;
end;
strList.free;
Ini.Free;
end;
Разработчик
Ответов: 26149
Рейтинг: 2127
|
|||
А почему не так КМК, все действия с ini файлом должен делать функционал соответствующего класса
|
|||
карма: 22 |
|