delphi - 在显示之前修改 DBGrid 单元格内容

Question

我想在加载数据库时修改 dbgrid 控件中特定单元格的内容。例如，假设我不希望数据库的任何字段在 dbgrid 中显示，如果它等于“forbidden”。有什么办法可以做到这一点吗？

Answer 1

转到你原来的问题:

使用字段的 OnGetText 事件提供与数据库中存储的值不同的值以用于演示目的。

如果需要将该值呈现给用户，则 DisplayText bool 参数将为 True；如果需要将该值用于其他目的，则该 bool 参数将为 False。

procedure TForm1.SQLQuery1Field1GetText(Sender: TField; 
  var Text: string; DisplayText: Boolean);
begin
  if (Sender.AsString = 'forbidden') and (DisplayText) 
    and (PrivilegeLevel(CurrentUser) < 10) then
    Text := '********'
  else
    Text := Sender.AsString;
end;