BorlandTalk.com

Mike Zmuda · Guest

Hello,

Does anybody know how to get a TDBGrid to display Memo fields from a database?

I've tried doing things with the DrawDataCell event, but it doesn't even
trigger.

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
Var
P : Array[0..50] of Char;
BS : tBlobStream;
S : String;
begin
S := '';
If Field is TMemoField then Begin
With (Sender as TDBGrid).Canvas do Begin
BS := tBlobStream.create(TBlobField(Field),bmRead);
FillChar(P,SizeOf(P),#0);
BS.Read(P,50);
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);
TextOut(Rect.Left,Rect.Top,S);
end;
end;
end;

What am I doing wrong / is there an easier way to get the TDBGrid to display a
memo field?

(Specifically, I'm not looking for another component to display memo fields - I
have those. I'm looking to see the specific memo using the default TDBGrid
component that ships with Delphi 2006.)

Thanks -

Mike Z.

Riki Wiki · Guest

Hoi Mike

You need to repost your question on the Borland news server to make
everybody see it and possibly answer your question. Further, this news
group do not officially exist, the group to use is b.p.d.database.general.

How to post to Delphi newsgroups:
<http://delphi.wikia.com/wiki/Delphi_Newsgroups>