procedure OnGetField2(Sender: TField; var Text: string; DisplayText: Boolean); .......DbGrid1.Columns[2].Field.OnGetText := OnGetField2; procedure TfrmAgentInfo.OnGetField2(Sender: TField; var Text: string; DisplayText: Boolean); begin if Sender.Value = 0 then Text := ''; end;
.......DbGrid1.Columns[2].Field.OnGetText := OnGetField2;
procedure TfrmAgentInfo.OnGetField2(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if Sender.Value = 0 then Text := '';
end;