[vodovoz]

Всем привет.
Вопрос такой, у меня сохраняются данные о температуре в ini файле. Сохраняются по дате и времени, причём с разным интервалом. Мне необходимо прочитать данные за прошедшие сутки и построить график.
Вопрос как это сделать? Я разобрался как прочитать одну запись, и то необходимо знать дату и точное время, до секунды, а как прочитать все данные за сутки? При чём в ini файле хранятся данные за несколько суток. Можно было бы прочитать и за все сутки, но тогда необходимо будет как то двигать график на экране, что бы найти нужный кусок графика.

[lmikle]

Для полноценного ответа хотелось бы видеть пример содержимого ini-файла. В обзем виде - читать все, потом в памяти отфильтровать.

Если есть возможность переделать код сохранения, то можно сохранять данные по секциям. Т.е. каждая дата (именно дата) будет храниться в отдельной секции. Тогда можно будет просто читать секцию и уже дальше работать с этими данными. Пример организации ini-файла в таком варианте:

Код:

1 2 3 4 5 6 7 8 9

[data-2022-06-07] 10_01_01=5 10_01_08=7 10_05_10=8   [data-2022-06-08] 10_01_11=8 10_02_08=5 10_15_10=2

Т.е. дата у нас в названии секции, а в названии параметра можно указывать только время.

[vodovoz]

У меня вроде так и сохраняется, в таком виде.

[05.05.2022]
15:35:14=23
15:40:16=23
15:41:16=23
15:42:16=23
15:43:16=23
15:44:16=23
15:45:16=23
15:46:16=23
15:47:16=23
15:48:16=23
15:49:16=24
15:50:16=24
15:51:16=24
15:52:16=24
15:53:16=24


И как прочитать всю секцию?

[lmikle]

У TIniFile есть метод - ReadSection - читает всю секцию в TStrings:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;

[vodovoz]

Я смог, только прочитать количество записей, вывел в Label и время измерения температуры, вывел в ListBox. А как вывести данные о температуре, соответствующие этому времени, и присвоить их графику в Chart ?

[lmikle]

См тут: https://stackoverflow.com/questions/...-as-the-x-axis

[vodovoz]

Не могу понять, почему считывается только время записи, а как прочитать данные, которые относятся к этому времени?

[lmikle]

ReadSection читает тебе именно имена ключей. Если хочешь сразу читать и имена и данные, то используй ReadSectionValues

[vodovoz]

lmikle, а при таком считывании, потом, возможно будет разделить дату и данные, что бы использовать при построении графика?

[lmikle]

Да, секция читается в формате Key=Value.
Т.е. надо обращаться к считанным данным через соотв. св-во TStringList.
Если правильно помню, то через sl.Values[KeyName]

Как то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var   sl : TStringList;   ini : TIniFile;   i : Integer; begin   ini := TIniFile.Create('...');   sl := TStringList.Create;   ini.ReadSectionValues('05.05.2022',sl);   For I := 0 To sl.Count-1 Do   begin     ShowMessage(Format('Имя ключа = %s, значение ключа  = %s',[sl.KeyNames[i],sl.Values[sl.KeyNames[i]]]));   end;   ini.free;   sl.free; end;