Ну добавть еще одно число в Х. Что-то типа:
12.11.2019 00:00:01 01 - 134
12.11.2019 00:00:01 02 - 136
12.11.2019 00:00:01 03 - 134,5
12.11.2019 00:00:01 04 - 135
Это самое простое.
По коду, там просто заводишь счетчик и переменую для пред. значения. Ну и в цикле это все делаешь. Если текущее значение совпадает с предыдущим, то увеличиваешь счетчик, если нет - то сбрасываешь. Что-то типа:
Код:
type
TMyData = record
Timestamp : String;
Value : Double;
end;
procedure TForm1.BuildChart(A : Array Of TMyData);
var
I, C : Integer;
T : String;
begin
T := 0;
C := 0;
For I := Low(A) To High(A) Do
begin
If T = A[i].Timestamp Then Inc(C) Else C := 1;
Chart1.Series[0].AddXY(Format('%s %2d',[A[i].Timestamp,C]),A[i].Value);
T := A[i].Timestamp;
end;
end;