TField.OnGetText中“Text”参数的默认值是多少？

Question

我有一个附加于字段TField.OnGetText事件Score的过程，如下所示：

procedure TMyForm.GetScoreText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
    if StrToInt(Sender.AsString) >= 80 and StrToInt(Sender.AsString) <= 100 then
        Text := 'Great!';
    else if StrToInt(Sender.AsString) >= 60 and StrToInt(Sender.AsString) < 80 then
        Text := 'Good';
end;

从 documentation中，我知道当没有定义OnGetText处理程序时，字段的Text属性就是AsString属性的名称。但是我的问题是，var参数Text得到的值是什么--定义了一个OnGetText，但是为字段的当前值定义了Text。在我的例子中，当字段Text的值小于60时，Score会得到什么值？是Null，还是空字符串，还是其他什么？我需要显式地知道它，因为有一些逻辑取决于所显示的值。

我从这个SO post中了解到，当OnGetText处理程序过程没有代码(即过程的主体为空)时，没有为字段显示任何内容。

Answer 1

当分配了一个OnGetText，而Text参数中没有任何返回时，结果是一个空字符串。

查看Db源代码：

function TField.GetDisplayText: string;
begin
  Result := '';
  if Assigned(FOnGetText) then
    FOnGetText(Self, Result, True) else
    GetText(Result, True);
end;

Result最初被设置为空字符串，如果被赋值，则将其传递给FOnGetText。