標籤: memo

wwDBGrid遇到顯示(MEMO)的處理方式

這件事情的起因是因為前人開立的欄位格式是 nvarchar(max)

於是呢！在DBGrid裡面就變成了

1480584108022

要解決(Memo)顯示正常的內容，就得要在DBGrid的DrawDataCell動手腳了

procedure TForm1.wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  ACanvas : TCanvas;
begin
  if (Field.DataType <> ftWidememo)  then exit;
  ACanvas := twwDBGrid(Sender).Canvas;
  ACanvas.textrect(Rect,Rect.Left,Rect.Top,Field.AsString);
end;

加上後，就會顯示為

1480585258071