SaveComponentByFile

　　interface

　　uses
　　  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　  StdCtrls, Db, DBTables;

　　type
　　  TForm1 = class(TForm)
　　    Button1: TButton;
　　    Query1: TQuery;
　　    ListBox1: TListBox;
　　    Button2: TButton;
　　    Button3: TButton;
　　    Button4: TButton;
　　    Label1: TLabel;
　　    Query2: TQuery;
　　    Button5: TButton;
　　    Edit1: TEdit;
　　    procedure Button1Click(Sender: TObject);
　　    procedure Button2Click(Sender: TObject);
　　    procedure Button3Click(Sender: TObject);
　　    procedure Button4Click(Sender: TObject);
　　    procedure Button5Click(Sender: TObject);
　　    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
　　  private
　　    { Private declarations }
　　  public
　　    { Public declarations }
　　  end;

　　var
　　  Form1: TForm1;

　　implementation

　　{$R *.DFM}

　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　  F:TMemoryStream;
　　  Path:string;
　　  Filename:string;
　　begin
　　  Path:=ExtractFilePath(application.ExeName);
　　  FileName:=Path+'ListBox.ini';
　　  F:=TMemorystream.Create ;
　　  F.WriteComponent(Listbox1);
　　  F.SaveToFile(Filename);
　　  F.Free;
　　  listbox1.Free;
　　end;

　　procedure TForm1.Button2Click(Sender: TObject);
　　var
　　  F:TMemoryStream;
　　  Path:string;
　　  Filename:string;
　　  xx:Tlistbox;
　　begin
　　  xx:=Tlistbox.create(self);
　　  xx.parent:=self;
　　  Path:=ExtractFilePath(application.ExeName);
　　  FileName:=Path+'ListBox.ini';
　　  F:=TMemorystream.Create ;
　　  F.LoadFromFile(Filename);
　　  xx:=TListBox(F.ReadComponent(xx));
　　  F.Free;
　　end;

　　procedure TForm1.Button3Click(Sender: TObject);
　　var
　　  Path:string;
　　  Filename:string;
　　begin
　　  Path:=ExtractFilePath(application.ExeName);
　　  FileName:=Path+'ListBox.ini';
　　  with query1 do
　　    begin
　　      close;requestlive:=true;sql.clear;databasename:='OILREP44444';
　　      SQL.Add('select * from zy_query');
　　      open;insert;
　　      fieldbyname('qry_id').asinteger:=strtoint(edit1.text);
　　      TBlobfield(Fieldbyname('sql_blob')).loadfromfile(Filename);
　　      try
　　        post;
　　      except
　　        close;
　　      end;
　　    end;
　　end;

　　procedure TForm1.Button4Click(Sender: TObject);
　　var
　　  Path:string;
　　  Filename:string;
　　begin
　　  Path:=ExtractFilePath(application.ExeName);
　　  FileName:=Path+'ListBox.ini';
　　  with query1 do
　　    begin
　　      close;sql.clear;databasename:='OILREP44444';
　　      SQL.Add('select * from zy_query where qry_id=:qq');
　　      params[0].AsInteger:=strtoint(edit1.text);
　　      try
　　        open;
　　        TBlobfield(Fieldbyname('sql_blob')).savetofile(Filename);
　　      except
　　        close;
　　      end;
　　    end;
　　end;

　　procedure TForm1.Button5Click(Sender: TObject);
　　begin
　　listbox1.Free;
　　end;