SaveComponentByFile

核心提示：unit savecomponent1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, DBTables;type TForm1 = class(TForm)

unit savecomponent1;

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;