jean2004您好： 试试

procedure TForm1.ADOQuery1ATTR_100001017GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text := Sender.AsString;
end;

或参考： http://delphi.ktop.com.tw/topic.php?topic_id=55980

Chance36 大大所言：
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  F:TField;
  ACanvas : TCanvas;
begin
  f:= Column.Field;
  // 非Memo型態 請離開
  If Not f.DataType IN [ftMemo, ftFmtMemo] Then Exit;
  ACanvas := TDBGrid(Sender).Canvas;
  //===========================
  //  在此可以設定字體背景顏色等資訊
  //===========================
  // 將Memo欄位用String畫出來
  ACanvas.textrect(Rect,Rect.Left,Rect.Top,F.AsString);
end;

还有其他： http://delphi.ktop.com.tw/topic.php?topic_id=50361 http://delphi.ktop.com.tw/topic.php?topic_id=30380 http://delphi.ktop.com.tw/topic.php?topic_id=28722 也可以自己去查找下，有很多！ ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================ 發表人 - deity 於 2005/07/14 17:49:53

3Q