我有一个附加到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;
从OnGetText文档中，我知道当没有OnGetText定义处理程序时，Text字段的属性是名称作为AsString属性。但我的问题是，var参数Text在那里获得的值是OnGetText定义的，但Text为字段的当前值定义的。就我而言，Text当字段的值Score小于 60时，会得到什么值？是Null，还是空字符串，还是其他什么？我需要明确地知道它，因为有一些逻辑取决于所显示的值。
我从这篇SO post中了解到，当OnGetText处理程序没有代码时，该字段没有显示任何内容，即程序主体为空。
当一个OnGetText赋值并且在Text参数中没有返回时，结果是一个空字符串。
看Db源码：
function TField.GetDisplayText: string;
begin
Result := '';
if Assigned(FOnGetText) then
FOnGetText(Self, Result, True) else
GetText(Result, True);
end;
在Result最初被设置为一个空字符串，并把它传递给FOnGetText它是否被分配。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句