致各位高手： 因為遍尋了多部有關Database的書籍，仍找不著有關如何配合TReader及TWriter把Object存入Database的方法，故此在此再問，祈望有高手解答。 盼望能有Sample Code以解疑團。 謝謝

敬告各位同志： 本人多謝William提供的資料，已掌握了初步的重點。 以下是成功把Components放在database的例子。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; ttt: TTable; DataSource1: TDataSource; tttNbr: TAutoIncField; tttB: TBlobField; Button2: TButton; FontDialog1: TFontDialog; procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button2Click(Sender: TObject); procedure Label1Click(Sender: TObject); procedure Label1DblClick(Sender: TObject); private { Private declarations } K:TBLOBstream; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); // 由db讀回Component begin ttt.edit; K := TBLOBstream.Create(tttB, bmReadWrite); K.ReadComponent(Label1); K.Free; end; procedure TForm1.FormActivate(Sender: TObject); begin ttt.Open; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if ttt.State in [dsEdit, dsInsert] then ttt.post; ttt.Close; end; procedure TForm1.Button2Click(Sender: TObject); // 把Component寫到db begin ttt.Edit; K := TBLOBstream.Create(tttB, bmReadWrite); K.WriteComponent(Label1); K.Free; end; procedure TForm1.Label1Click(Sender: TObject);//試驗把component改變 begin if Label1.Caption = 'Label1' then Label1.Caption := 'Label2' else Label1.Caption := 'Label1'; end; procedure TForm1.Label1DblClick(Sender: TObject);//試驗把component改變 begin if FontDialog1.Execute then begin Label1.Font := FontDialog1.Font; end; end; end.