Delphi7 について

Windows 環境　から　PostgreSQL の text型 は　TDBMemo型で扱う。

　PostgreSQL で　varchar 型、text型　で定義されているものは　Delphi からはどう見えるのか？

text型を使ったデーター

beniya-# select \d a_text1; Table "a_text1" Column | Type | Modifiers --------+-------------------+----------- a1 | character(10) | a2 | character varying | a3 | text | beniya-# select * from a_text1; beniya=# select * from a_text1; a1 | a2 | a3 ------------+--------------------+-------------------------------------------------------------- aaa | なんでもいい | ttttttttttttttt aab | なんでもいい | qqqqqqqqqttttttttttttttt (2 rows)

こんな構造のテーブルを作る。。

設計
	implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin with Query1 do if Not Active then begin Open; Button1.Caption := '接続'; end else begin Action1Execute(Sender); close; Button1.Caption := '切断'; end; end; procedure TForm1.Action1Execute(Sender: TObject); begin if Query1.UpdatesPending then DataBase1.ApplyUpdates([query1]); end; end.

これで実行させると

実行画面
	a3 text は　DBEdit3 と DBMemo1 DBEdit3 は　(MEMO) としか表示されない。 DBMemo1 は　Delphi の MEMO型としてちゃんと表示される。 当然ながら　挿入・編集可能です。

postgreSQL psql で確認
select * from a_text1; a1 | a2 | a3 ------------+--------------------+-------------------------------------------------------------- aaa | なんでもいい | ttttttttttttttt aab | なんでもいい | qqqqqqqqqttttttttttttttt aac | ただのテストです。 | ここにはいろいろと 書ける筈です。 今日はいい天気だけど寒い。 (3 rows)	データーが入っている。 改行も入っているようだ。

• 参考文献　:　　

2005/02/02 start ********* Last Update 2006/11/10 16:48 JST