Delphi 11 Enterprise中LiveBinding绑定多字段到TMemo的问题

问题核心原因 #

你在CustomFormat里错误使用了Delphi原生代码（Self.Owner.FieldByName），但LiveBindings的CustomFormat采用的是自身的表达式语法，并非直接执行Delphi代码，这才导致字段访问失败或出现异常结果（比如末尾的0是因为表达式解析错误，把非字符串值默认转为整数0）。这个问题和DBExpress无关，FireDAC示例只是更常见，两者的LiveBindings规则完全一致。

解决方案 #

方案1：使用LiveBindings表达式直接拼接字段

在LinkControlToField的CustomFormat中，用<字段名>的格式引用当前数据集的其他字段，无需调用Delphi的字段访问方法。例如：

• 如果你绑定的是LastName字段，要拼接FirstName，可以写：

  UpperCase(%s) + ', ' + <FirstName>
  

• 多个字段拼接同理：

  <FirstName> + ' ' + <LastName> + ' (' + <Email> + ')'
  

方案2：通过OnFormat事件实现复杂格式逻辑

如果需要更复杂的处理（比如条件判断、特殊格式化），直接利用LinkControlToField的OnFormat事件编写Delphi代码：

procedure TYourForm.LinkControlToField1Format(Sender: TObject; const Value: TValue; var DisplayValue: string);
var
  ds: TClientDataSet;
  FirstName, Email: string;
begin
  // 引用目标数据集（如果在DataModule里，替换为DataModule实例）
  ds := ClientDataSet1;
  FirstName := ds.FieldByName('FirstName').AsString;
  Email := ds.FieldByName('Email').AsString;

  // 自定义拼接逻辑
  DisplayValue := UpperCase(Value.AsString) + ', ' + FirstName;
  if Email <> '' then
    DisplayValue := DisplayValue + ' <' + Email + '>';
end;

额外注意事项 #

• 确保字段名拼写完全匹配，LiveBindings表达式对字段名大小写敏感（取决于数据集的字段定义）。
• 如果数据集在DataModule中，在事件代码里要正确引用DataModule的实例（比如DataModule1.ClientDataSet1），避免空引用。

内容的提问来源于stack exchange，提问作者Adamf