LiveBinding中用FillExpressions格式化ISO8061日期时间字符串问题

问题原因分析 #

• LiveBinding的SubString函数采用1起始索引，而非常见的0起始，你原来的代码用0、5、8作为起始位置，会截取错误内容导致格式失效。
• 直接用StrToDate时，ISO8601格式（如2024-05-20T12:34:56）不符合Delphi默认的日期格式规则，必须指定格式参数才能正确转换。

解决方法 #

方法1：修正SubString索引（纯表达式实现）

调整起始位置为1-based，针对YYYY-MM-DDTHH:MM:SS格式的ISO字符串，正确的截取拼接表达式为：

SubString(Value,9,2)+"."+SubString(Value,6,2)+"."+SubString(Value,1,4)

• 逻辑说明：SubString(Value,1,4)取年份（第1-4位），SubString(Value,6,2)取月份（第6-7位），SubString(Value,9,2)取日期（第9-10位），最终拼接成dd.mm.yyyy格式。

方法2：用StrToDate指定格式转换

先截取ISO字符串的日期核心部分（前10位，即YYYY-MM-DD），再通过指定区域格式完成转换：

DateToStr(StrToDate(SubString(Value,1,10), TFormatSettings.Create('en-US')))

• 若需要保留时间信息，可改用StrToDateTime并自定义输出格式：

DateTimeToStr(StrToDateTime(Value, TFormatSettings.Create('en-US')), TFormatSettings.Create('de-DE'))

（注：de-DE区域会输出dd.mm.yyyy hh:mm:ss，可按需替换为对应区域或自定义格式字符串）

方法3：自定义绑定表达式函数（最灵活）

如果需要更复杂的处理逻辑，可在代码中实现自定义函数并注册到LiveBinding引擎：

1. 编写处理函数：

function FormatISODateTime(const AISOString: string): string;
var
  LFormat: TFormatSettings;
begin
  LFormat := TFormatSettings.Create;
  // 设置输出格式为dd.mm.yyyy
  LFormat.ShortDateFormat := 'dd.mm.yyyy';
  LFormat.DateSeparator := '.';
  if Length(AISOString) >= 10 then
    Result := DateTimeToStr(StrToDateTime(Copy(AISOString, 1, 10), LFormat), LFormat)
  else
    Result := '';
end;

2. 在窗体初始化时注册函数：

procedure TForm1.FormCreate(Sender: TObject);
begin
  TExpressionEngineManager.RegisterFunction('FormatISODateTime', @FormatISODateTime, [etString], etString);
end;

3. 在FillExpressions中直接调用：

FormatISODateTime(Value)

内容的提问来源于stack exchange，提问作者fisi-pjm