SaveComponentByFile

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(Send...[ 查看全文 ]