DBGridにmemo型表示 (ID:36229)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは。 D2007で作成した、下記のルーチン（DBGridにmemo項目の1行目を表示させる）が、D2010では「無効なクラス型キャスト」というエラーになってしまいます。 回避策はありませんでしょうか。 tbl内memo項目のOnGetTextで呼んでいます。 Procedure bin_GridLowDisplay(Sender: TField; var Text: String; DisplayText: Boolean); var BlobMemo : TBlobStream; SL : TStringList; begin BlobMemo := TBlobStream.Create(TBlobField(Sender),bmRead); ←エラー SL := TStringList.Create; SL.LoadFromStream(BlobMemo); if SL.Count > 0 then Text := SL[0]; BlobMemo.Free; SL.Free; end;