Показать сообщение отдельно
  #4  
Старый 14.06.2022, 21:25
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

У TIniFile есть метод - ReadSection - читает всю секцию в TStrings:
Код:
var
  sl : TStringList;
  ini : TIniFile;
  i : Integer;
begin
  ini := TIniFile.Create('...');
  sl := TStringList.Create;
  ini.ReadSection('05.05.2022',sl);
  For I := 0 To sl.Count-1 Do
  begin
    ...
  end;
  ini.free;
  sl.free;
end;
Ответить с цитированием