程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> SaveComponentByFile

SaveComponentByFile

編輯:Delphi
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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved