掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MySQLのtext型を表示させるには？ (ID：10817)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
テーブル設計に問題があるとは思いませんが、、、 DBMemoコンポーネントで対応すれば素直に表示できますし、 「Delphi4データベース構築 実戦テクニック」という本に DBGridにメモ項目の１行を表示させるサンプルコードが 紹介されています。 項目コンポーネントからメモ項目のOngetTextイベントハンドラに １行表示させる処理を書けば、１行分は見ることは出来るようです。 下記のサンプルコードは、Table1のBikouフィールドのOnGetText イベントでの例です。 procedure TForm1.Table1BikouGetText(Sender: TField; var Text: String; DisplayText: Boolean); var BlobBikou: TBlobStream; SL: TStringList; begin // BlobStreamを作成する BlobBikou := TBlobStream.Create(TBlobField(Sender), bmRead); // StringListを作成する SL := TStringList.Create; // BlobStreamから読み込む SL.LoadFromStream(BlobBikou); // １行以上であれば if SL.Count > 0 then // １行目をTextパラメータに渡す Text := SL[0]; // BlobStreamを解放 BlobBikou.Free; // StringListを解放 SL.Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.