сравнить конечное время каждой строки с начальным временем следующей строки и если разница меньше минуты, то объединить две сравниваемые строки в одну

[garuna]

Добрый вечер!

Есть массив строк (TArray<string>), содержащий некие промежутки времени в виде НАЧАЛЬНОЕ_ВРЕМЯ-КОНЕЧНОЕ_ВРЕМЯ в порядке возрастания.

Нужно сравнить конечное время каждой строки с начальным временем следующей строки и если разница меньше минуты, то объединить две сравниваемые строки в одну взяв начальное время первой строки и конечное время второй строки.

То есть из такого массива:

10:27:19.538-10:27:28.608
10:28:37.211-10:28:42.243
10:30:13.993-10:30:26.087
10:35:51.992-10:35:56.024
10:36:10.151-10:36:13.193
10:36:15.223-10:36:18.235
10:38:47.592-10:38:59.705
10:39:18.859-10:39:21.940
10:45:45.293-10:45:46.309

Должен получиться такой:

10:27:19.538-10:27:28.608
10:28:37.211-10:28:42.243
10:30:13.993-10:30:26.087
10:35:51.992-10:36:18.235
10:38:47.592-10:39:21.940
10:45:45.293-10:45:46.309

Помогите в кодом пожалуйста, что-то не могу сообразить как это реализовать средствами Delphi, запутался

[BDA]

Примерно так (не запускал):

t1 := StrToTime(Copy(strs[0], 1, 12));
t2 := StrToTime(Copy(strs[0], 14, 12));
actual_size := 0;
for i := 1 to High(strs) do
begin
    t3 := StrToTime(Copy(strs[i], 1, 12));
    t4 := StrToTime(Copy(strs[i], 14, 12));
    if MilliSecondsBetween(t2, t3) < 60000 then
        t2 := t4
    else begin
        strs[actual_size] := FormatDateTime('hh:nn:ss.zzz', t1) + '-' + FormatDateTime('hh:nn:ss.zzz', t2);
        Inc(actual_size);
        t1 := t3;
        t2 := t4;
    end;
strs[actual_size] := FormatDateTime('hh:nn:ss.zzz', t1) + '-' + FormatDateTime('hh:nn:ss.zzz', t2);
Inc(actual_size);
SetLength(strs, actual_size);

[garuna]

BDA, неа, что-то не работает

[garuna]

В общем подумал сегодня на свежую голову и набросал такой код:

 var ATimeList:= TStringList.Create;
 ATimeList.LoadFromFile('C:\timelist.txt');
 ATimeList.Delimiter:= ';';
 ATimeList.DelimitedText:= ATimeList.Text;

 for var i:= Pred(ATimeList.Count) downto 1 do
 begin

  var FTimeStartCurrent:= Date + StrToTime(Copy(ATimeList[i], 1, 12));
  var FTimeEndCurrent:= Date + StrToTime(Copy(ATimeList[i], 14, 12));

  var FTimeStartNext:= Date + StrToTime(Copy(ATimeList[i - 1], 1, 12));
  var FTimeEndNext:=  Date + StrToTime(Copy(ATimeList[i - 1], 14, 12));

  if SecondsBetween(FTimeStartCurrent, FTimeEndNext) < 60
  then
  begin
   ATimeList[i - 1]:= FormatDateTime('hh:nn:ss.zzz', FTimeStartNext) + '-' + FormatDateTime('hh:nn:ss.zzz', FTimeEndCurrent);
   ATimeList.Delete(i);
  end;

 end;

 mmo1.Text:= ATimeList.Text;

Вроде работает. Всем спасибо.