제 책에 이런 내용이 있네요... 열심히 베꼈는데.. 도움이 될란지..

OnDBGrid1DrawColumnCell를 이용한다..

TMemoField Object를 생성하기 이런에.. TTable을 더블 클릭하여..

Memo Field를 추가한다...(Query로 바꾸어도 상관없을듯)

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var
  P   : array[0..50] of char;
  BS  : tBlobstream;
  S   : String;
begin

   if Field is TMemoField then
   begin

    With (Sender as TDBGrid).Canvas do
     begin
      BS := tBlobstream.Create(Table1Notes,bmRead);
      FillChar(P,sizeof(P),#0);
      BS.Read(p,50);

      BS.Free;

      S:= StrPos(p);
      While Pos(#13,S) > 0 do
        S[pos(#13,s)]:=' ';
      while Pos(#10,S) > 0 do
         S[pos(#10,S)]:=' ';
      FileRect(Rect);
      TextOut(Rect.Left.Rect.Top,s);
    end;
  end;
end;

아냅...감사합니다..

그런데..... 요 아래 내용은 전에도 많이 봤었는데요......

begin
      BS := tBlobstream.Create(Table1Notes,bmRead);
      FillChar(P,sizeof(P),#0);
      BS.Read(p,50);

      BS.Free;

요부분 중에서 Table1Notes <- 요부분있져?

여기서 에러가 나는뎅..... 아무리 해도 잘 않되더라구요...

해당필드의 타입을 적으면 된다는데..........

혹시 아시나요?

저도 열심히 베꼈는데 큰 도움이 안되어 죄송합니다..

Table1Notes 은 Table1 컴퍼넌트의 필드명이 Notes라는 이야기거든요...
(그리고 필드에 올라와 있어야 합니다...)

그리고 오타도많이 발생하고...


그런데 해보니까.. 잘 안되더라고요.. 책이 잘못되었는지...

XDBGrid를 한번 사용해보시지요.. 그거 괜찮은 컴퍼넌트같던데..

지금 원하시는 것은 기본으로 제공하고요..