想改变DBGrid中某一列的显示内容而不改变原来的值。

[infooffice]

DBGrid1.Canvas.TextOut只是将原先的内容覆盖，有时写的内容长度不够，无法全覆盖掉！

谢谢！

[sixgj]

DBGrid1.columns[0].text;='123'；

[jts2001]

procedure TForm1.Button1Click(Sender: TObject);
begin
table1.FieldByName('ss').OnGetText :=pp;
end;
procedure tform1.pp(Sender: TField; var Text: String; DisplayText: Boolean) ;
begin
if (sender).AsString='1' then
text :='男' else if
(sender).AsString='0' then
text :='女 ' else
text :='不男不女';
end;