时间转换函数

procedure ChangeList(var lt: TStringList);
var
  i: Integer;
  str: string;
  arr: TArray;
begin
  for i := 0 to lt.Count - 1 do
  begin
    str := lt[i].Trim;
    if (str <> '') and (str[1] = '#') then
    begin
      str := str.Replace('#', '').Replace(',', '.');
      arr := str.Split([':']);
      if Length(arr) <> 3 then Continue;
      str := IntToStr(arr[0].ToInteger * 60 * 60 * 1000 + arr[1].ToInteger * 60 * 1000 + Trunc(arr[2].ToSingle * 1000));
      lt[i] := '#' + str;
    end;
  end;
end;