algorithm - Delphi时间图分割算法

Question

我在 ClientDataSet 中有 3 条记录的结构：

数字：整数；开始：TTime；结束：TTime；

1个；9:00；10:00
2；9点30分；10:00
3；9点40分；10:20

我必须像这样将这些记录传递给其他 ClientDataSet：

1个；9:00；9:30
2：9：30；9:40
3；9点40分；10:00
4；10:00；10:20

Answer 1

使用TList<TTime>，用两列填充它，对其进行排序，然后遍历列表跳过重复项。像这样。

var l: TList<TTime>; t1, t2: TTime; id2: cardinal;
begin
  l := TList<TTime>.Create;
  try
    cds1.First;
    while not cds1.Eof do begin
       l.Add( Frac(cds1.Fields[1].AsDateTime) );
       l.Add( Frac(cds1.Fields[2].AsDateTime) );
       cds1.Next;   
    end;

    l.Sort;

    cds2.Clear;
    if l.Count <= 0 then exit;

    t1 := l[0]; id2 := 0;
    for t2 in l do begin
        if t1 > t2 then raise Exception.create ('Sort silently failed!') else
        if t1 < t2 then begin
           Inc(id2);
           cds2.AppendRecord([ id2, t1, t2 ]);
           t1 := t2;
        end;
    end;
  finally 
    l.Free;
  end;
end;