对于dbgrid控件，假设有四个字段，前三个是字符串型，最后一个是整型，请教，如何将最后一个整型的按自己的对应表显示为字符串呢？

Question

先把整数对应的字符串存在一个变量中，然后付给dbgrid1.fields[n]

Answer 1

procedure Tfrm_supplier.dbgrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.FieldName='flag') then
    if not column.Field.IsNull then
      if column.Field.AsInteger=1 then
        dbgrid1.canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,'')
      else
        dbgrid1.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,'已作废');
end;
着方法不是很漂亮，但可用。