delphi - 如何将格式化为以下格式的字符串转换为TDateTime:15h44m28s？

Question

This question already has answers here:

Converting a string to TDateTime based on an arbitrary format

（8个答案）


6年前关闭。





我有用日期时间编码的文件名，格式为：yyyy-mm-dd_HHhMMhSSs。
实际示例：2013-08-05_15h44m28s（在时间部分中，只能包含小时部分）

我必须将其转换回实际的日期时间。日期部分是如此简单，以至于已经解决了，但是对于我在delphi中找不到的时间部分，请安装一种开箱即用的方法。

所以我有一个 SScanf实现来解决这个问题，但是问题仍然存在：我是否忽略了某些事情，或者确实是这样做的方法而不必自己编写代码？

注意：尽管我标记了delphi版本，但最新版本中存在的功能也很有趣。
顺便说一句，有人知道时间部分的格式是否有名称？

最佳答案

这是一个正则表达式的好用例。一旦确定日期，就可以使用此正则表达式：

(\d+)h(\d+)m(\d+)s

实际上，您也可以这样解析整个字符串。您需要的只是此功能：

function ToDateTime(const str: string): TDateTime;
var
  Match: TMatch;
begin
  Match := TRegEx.Match(str, '(\d+)-(\d+)-(\d+)_(\d+)h(\d+)m(\d+)s');
  if Match.Groups.Count<>7 then
    raise Exception.CreateFmt('Could not parse date/time: %s', [str]);
  Result := EncodeDateTime(
    StrToInt(Match.Groups[1].Value),
    StrToInt(Match.Groups[2].Value),
    StrToInt(Match.Groups[3].Value),
    StrToInt(Match.Groups[4].Value),
    StrToInt(Match.Groups[5].Value),
    StrToInt(Match.Groups[6].Value),
    0
  );
end;

关于delphi - 如何将格式化为以下格式的字符串转换为TDateTime:15h44m28s？ ，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/21290939/

上一篇：Delphi TAction ShortCut 不适用于子窗体

下一篇：delphi - 我可以在读写方法中访问属性的属性吗

Answer 1

这是一个正则表达式的好用例。一旦确定日期，就可以使用此正则表达式：

(\d+)h(\d+)m(\d+)s

实际上，您也可以这样解析整个字符串。您需要的只是此功能：

function ToDateTime(const str: string): TDateTime;
var
  Match: TMatch;
begin
  Match := TRegEx.Match(str, '(\d+)-(\d+)-(\d+)_(\d+)h(\d+)m(\d+)s');
  if Match.Groups.Count<>7 then
    raise Exception.CreateFmt('Could not parse date/time: %s', [str]);
  Result := EncodeDateTime(
    StrToInt(Match.Groups[1].Value),
    StrToInt(Match.Groups[2].Value),
    StrToInt(Match.Groups[3].Value),
    StrToInt(Match.Groups[4].Value),
    StrToInt(Match.Groups[5].Value),
    StrToInt(Match.Groups[6].Value),
    0
  );
end;