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

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 - 我可以在读写方法中访问属性的属性吗

相关文章：

delphi - 当 T 是事件处理程序时 IList<T> 崩溃？

delphi - 判断exe文件是否经过UPX压缩的方法

python - 将Python程序转换为C : How can I multiply a character by a specified value and store it into a variable?

c++ - 子类对象列表重新解释为基类对象列表？ (C++11)

delphi - DataSnap 和数据库连接/登录

delphi - 如何远程调试使用运行时包构建的 Win32 VCL 应用程序

sql-server - 当它是强制参数时，如何在不显式写入数据库名称的情况下编写通用脚本

android - 将图像从 Android 发送到 Datasnap Restful Server

C++:如何将十六进制 HANDLE 转换为十进制？

德尔福XE2 : Invoke WinAPI EnumResourceNames cause access violation in Win64 platform