首页 相关文章 设计模式之singleton

设计模式之singleton

  program singletonTest;

  uses
   Forms,
   mainfrm in 'mainfrm.pas' {Form1},
   singletonfrm in 'singletonfrm.pas' {Form2};

  {$R *.res}

  begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
  end.
  
  
  unit singletonfrm;

  interface

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

  type
   TForm2 = class(TForm)
   Button1: TButton...[ 查看全文 ]

2016-02-19 标签:

设计模式之singleton的相关文章

手机页面
收藏网站 回到头部