nesco писал(а):
sla8a, в описании дефолтное значение SectionRead будем присваивать или как? Я бы присвоил True, чтобы остальной код не правитьМежду прочим, я предлагал не править ничего.
Лишь только:
Galkov писал(а):
Не надо проверять результат Open в doSectionNamesНе думал, что требуются разъяснения:
procedure THIini._work_doSectionNames;
var StrList:PStrList;
I:integer;
begin
Open(_Data,ifmRead); // не хочешь проверять, ТАК И НЕ ПРОВЕРЯЙ
//if not Open(_Data,ifmRead) then exit;
StrList := NewStrList;
Ini.GetSectionNames(strList);
Ini.Free;
TRY
for i := 0 to strList.Count-1 do
_hi_OnEvent(_event_onSectionNames,strList.Items[i]);
FINALLY
strList.free;
END;
end;
--- Добавлено в 2018-11-26 23:37:55
А вот установку mode в Open поднял бы выше. Не годится оставлять параметр без инициализации
Как-то так:
function THIini.Open;
begin
Ini := OpenIniFile(ReadFileName(ReadString(_Data,_data_FileName,_prop_FileName)));
Ini.Section := ReadString(_Data,_data_Section,_prop_Section);
Ini.Mode := ifm;
Result := Ini.Section <> '';
end;
Поиск
Друзья
Администрация