DBGRID中显示密码字段的问题

Question

如何在ＤＢＧＲＩＤ中显示密码字段内容为星号，而不改变字段的实际内容？
谢谢，请稍详细一点
今日３点以前结帐

Answer 1

TField(DbGrid.Columns[i].Field).DisplayFormat:='*';

Answer 2

在该字段的OnGetText中写：
Text := '******';

Answer 3

select username ,'************' as password
 from user

Answer 4

在对应字段的ongettext事件中写
procedure TForm1.ADOQuery1idGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := Format('******',[Sender.dataset.fieldbyname('psw').asstring]);
end;

Answer 5

TField(DbGrid.Columns[i].Field).DisplayFormat:='*';
伙计，没有找到displayformat属性了，
编译不过去

Answer 6

TField(DbGrid.Columns[i].Field).DisplayFormat:='*';

Answer 7

shunbing() ( ) 信誉：100 
TField(DbGrid.Columns[i].Field).DisplayFormat:='*';
伙计，没有找到displayformat属性了，
编译不过去

Answer 8

用Tensionli() 的方法，我稍做修改：
procedure TForm1.ADOQuery1pwdGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := Format(StringOfChar('*', Length(Sender.AsString)), [Sender.AsString]);
end;