cmboxsetu.pas

来自「图书馆管理系统设计详细资料」· PAS 代码 · 共 49 行

unit cmboxsetu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, StdCtrls, ExtCtrls, SUIForm;

type
  Tcmboxsetfm = class(TForm)
    cmboxset: TsuiForm;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    Memo: TMemo;
    procedure suiButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    filename:string;
    listvalue:tstrings ;
  end;
var
  cmboxsetfm: Tcmboxsetfm;

implementation

{$R *.dfm}
procedure Tcmboxsetfm.suiButton1Click(Sender: TObject);
begin
        Memo.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'zd\'+filename);
        cmboxsetfm.close;
end;


procedure Tcmboxsetfm.FormShow(Sender: TObject);
begin
   Memo.Lines:=  listvalue ;
end;

procedure Tcmboxsetfm.suiButton2Click(Sender: TObject);
begin
        cmboxsetfm.close;
end;

end.