我使用ACCESS為資料庫 希望用adoquery將memo的欄位型態內容顯示在dbgrid 搜尋前面幾位前輩的文章好像可以用convert函數 寫法如下 select Convert(varchar(255), note)as note1 from consumer 其中note欄位型態為MEMO,note1是我新增欄位要顯示轉換結果的 可是程式回應convert函數未定義

Showing Memo Fields in a DbGrid: http://www.q3.nu/trucomania/truco.cgi?354&ing

 procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
   Field: TField; State: TGridDrawState);
 var
   Grid         : TStringGrid;
   Texto   : String;
   Rectangulo   : TRect;
 begin
   Rectangulo:=Rect;
   Grid := TStringGrid(Sender);
   if Field.IsBlob then
   begin
     Grid.Canvas.FillRect(Rect);
     Texto := Field.AsString;
     DrawText( Grid.Canvas.Handle,
               PChar(Texto),
               StrLen(PChar(Texto)),
               Rectangulo,
               DT_WORDBREAK);
   end;
 end;

How to display memo fields in a TDBGrid: http://www.lmc-mediaagentur.de/dpool/tips/0454.htm

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
  P: array [0..50] of char;  {array size is number of characters needed}
  BS: tBlobStream;  {from the memo field}
  S: String;
begin
  if Field is TMemoField then
  begin
    with (Sender as TDBGrid).Canvas do
    begin
      BS:= tBlobStream.Create(TBlobField(Field), bmRead);
      FillChar(P, SizeOf(P), #0);  {terminate the null string}
      BS.Read(P, 50);  {read 50 chars from memo into blobStream}
      BS.Free;
      S:= StrPas(P);
      while Pos(#13, S) > 0 do
        S[Pos(#13, S)] := ' ';
      while Pos(#10, S) > 0 do
        S[Pos(#10, S)] := ' ';
      FillRect(Rect);  {clear the cell}
      TextOut(Rect.Left, Rect.Top, S);  {fill cell with memo data}
    end;
  end;
end;

--- Everything I say is a lie.

真的不好意思 因為我是新手 這兩個PROCEDURE要如何用啊????

引言: 真的不好意思 因為我是新手 這兩個PROCEDURE要如何用啊????

╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆ ║聖│║誕│║快│║樂│ ╰☆╮ ╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . ﹒☆‧☆∴．：☆﹒‧∴ ☆..．..

thanks