Delphi实现Singleton模式

Delphi实现Singleton模式的相关文章

• 
  Singleton设计模式的C#实现

  标签：编程语言 网络编程

  Singleton模式 Singleton（译为单件或单态）模式是设计模式中比较简单而常用的模式。 有些时候在整个应用程序中，会要求某个类有且只有一个实例，这个时候可以采用Singleton模式进行设计。用Singleton模式设计的类不仅能保证在应用中只有一个实例，而且提供了一种非全局变量的方法进行全局访问，称为全局访问点，这样对于没有全局变量概念的纯面向对象语言来说是非常方便的，比如C#。 本...[ 查看全文 ]

  千里之行之歌

  11
• 
  设计模式之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 ...[ 查看全文 ]

  nice凌开

  21
• 
  五种单件模式之Singleton的实现方法详解

  标签：编程语言 网络编程

  最基本的实现方式如下： 代码如下： package singletonpattern; public class Singleton1 {  private static Singleton1 uniqueInstance;  private Singleton1() {  }  public static Singleton1 getInstance() {   if (uniqueInstance == null) {    uniqueInstance = new Singleton1();   }   return uniqueInstance;  } } 但...[ 查看全文 ]

  伤离逝闩水

  101
• 
  delphi实现关闭Windows

  标签：编程语言 网络编程

  控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved);是实现这一功能的API函数 首先定义常数 const EWX_FORCE=4; //关闭所有程序并以其他用户身份登录 EWX_LogoFF=0; //重新启动计算机并切换到MS-DOS方式 EWX_REBOOT=2; //重新启动计算机 EWX_SHUTDOWN=1;//关闭计算机 运行时给How赋值，让他等于EWX_SHUTDOWN或其他...[ 查看全文 ]

  无奈有耐

  01
• 
  Delphi模式编程之策略模式(上)

  标签：编程语言 网络编程

  Delphi模式编程之策略模式刘 艺 1.1                         模式解说策略（Strategy）模式的用意是定义一组算法（algorithms），并将每个算法封装到具有共同接口的独立的类中，从而使它们可以相互替换。策略模式让算法变化独立于使用它的客户端。要了解策略模式的使用动机和意义...[ 查看全文 ]

  翔_鸢

  111
• 
  delphi实现控制声音音量

  标签：编程语言 网络编程

  当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency属性值设置大一些，然后在Uses段加入MMSystem，并在TrackBar1和TrackBar2的OnChange事件都写上下列语句： procedure TForm1.Tr...[ 查看全文 ]

  美好人生685

  521
• 
  用Delphi实现文件关联

  标签：Delphi

    文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry，可以通过它取得或改变注册表相关键值的内容。 Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String; Var Reg: TRegistry; FileType: String; begin Result := ′′;{函数返回值是打开FileExt文件的可执行程序的名字及其参数} Reg := TRegistry...[ 查看全文 ]

  依小然Z

  101
• 
  用Delphi实现打印功能

  标签：Delphi

    给单位开发软件，涉及一打印模块，我感到颇有兴趣，就拿来其中的一个小功能模块与读者共享。下面以打印在纸张的矩形框内为例简单介绍： 程序要求： 单击[打印]按钮，把Memo的内容最多分三行打印出来，每行最多能容纳22个三号字，限定汉字上限为50个汉字。 编程思路： 用LineTo和MoveTo函数画一矩形框，根据Memo组件的内容长度用Copy函数把它分割为1到3个子串。在矩形框...[ 查看全文 ]

  就差你了go

  1961
• 
  建造者模式-Delphi述

  标签：编程语言 网络编程

  依然是java 与模式里的例子,（java 与模式 闫宏著) 以下是转为delphi的代码，这次加了注释:) unit BuilderPattern; interface type   TProduct = class;   //抽像建造者 规范接口   TBuilder = class(TObject)   public     procedure builderpart1(); virtual; abstract;     procedure builderpart2...[ 查看全文 ]

  1漫步9

  11
• 
  Delphi编程实现Ping操作

  标签：编程语言 网络编程

  在Delphi中使用TidIcmpClient控件可以非常简单的实现图形界面的Ping！ 新建一个工程，命名为 PingGUI.dpr ，窗口命名为“frmPing”，加入如下组件：     lstReplies: TListBox;     ICMP: TIdIcmpClient;     Panel1: TPanel;     btnPing: TButton;     edtHost: TEdit;     spnPin...[ 查看全文 ]

  京宝

  191
• 
  singleton之我见

  标签：编程语言 网络编程

    先和大家说说什么是singleton模式的，它中文意应该为单一模式，但好别扭，也不知道是谁翻译的 29796428(qiubole) 12:26:46 它属于创建模式的一种 29796428(qiubole) 12:27:00 主要的作用就是确实一个类有且只有唯一的一个实例 29796428(qiubole) 12:27:10 这在实际当中，其实还是有一些用处的 29796428(qiubole) 12:27:41 比如，当前用户这个类，我们就应该只保证...[ 查看全文 ]

  最爱宝贝110

  01
• 
  Delphi7.0实现添加记录的“携带”实现

  标签：Delphi

  在数据库管理系统中，数据录入是数据处理的基本功能，录入操作方便与否是衡量数据库应用程序交互良莠的指标之一。录入中除了应要对录入数据进行合法检验外，还应为用户提供更多的方便操作，即对于“规范性”数据，如：性别、职称等字段的数据，应尽可能供用户“选择”录入，而非直接文字输入，另外，如：出生年月、联系电话、邮编等类似名称的字段，程序应设置数据录入格式，这可以从一定程度 上“规范...[ 查看全文 ]

  坑人嘚圆通

  361
• 
  用DELPHI实现文件加密压缩

  标签：编程语言 网络编程

  用DELPHI实现文件加密压缩 作者: e梦缘 (wnhoo) Mail:wnhoo@163.com 风花雪月 e梦情缘 点击下载此详细说明文件 概述： 在这篇文件中，讲述对单个文件的数据加密、数据压缩、自解压的实现。同样，也可以实现对多个文件或文件夹的压缩，只要稍加修改便可实现。 关键字：加密压缩、Zlib、流、资源文件 引 言： 在日...[ 查看全文 ]

  1127787680

  341
• 
  delphi编程实现检测声卡存在

  标签：编程语言 网络编程

  如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡： procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begini := auxGetNumDevs();if i= thenlabel1.Caption :=系统没有发现声卡;end; [ 查看全文 ]

  尕伍儿

  11
• 
  用Delphi轻松实现背景播放

  标签：Delphi

  如果我们把Handle指向桌面，哪TMediaPlay将会在桌面播放。与TCanvas不同的是，TWinControl的Handle的属性是只读的，并且GetHandle方法是静态方法，这说明，我们要Handle指向桌面只有两种方法 修改TWinControl，让Handle可写。 建立TWinControl子类，并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 其中第二种方法比较好. TSurpriseDisplay=class(TWinControl) protected...[ 查看全文 ]

  回头看帖

  151
• 
  Delphi实现窗体控件自由摆布

  标签：Delphi

    Delphi关键字导航 网络 界面 多媒体 数据库 图像 控件 文件 硬件  在做Mis项目过程中，有时需要让用户自己来实现窗体控件的布局，比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能，必须做好三件事： 1、设置进入控件边缘的光标形状； 2、改变控件的大小及位置； 3、保存窗体控件的位置及状态，窗体下次启动时重新设置它们的这些信息。具体步骤如下： 1、修改控件光标。只...[ 查看全文 ]

  风萧笑兮

  961
• 
  Delphi中如何实现透明按钮

  标签：Delphi

    各位亲爱的读者，在delphi编程实战中我们可以使用按钮控件来制作程序中的按钮键。但是在使用其它软件时，我们常常可以看到透明按钮的效果。那么如何在delphi中实现透明按钮的效果？笔者在互联网搜索了不少时间也没有找到这方面的控件，于是决定自己DIY一番，下面笔者就将自己的经验与广大读者共享一番。 要实现透明按钮，共需要三个控件-image、label、bevel。其中image控件是为了突出透明...[ 查看全文 ]

  兮贝城

  1541
• 
  delphi编程实现动态创建别名

  标签：编程语言 网络编程

  对于BDE会话期对象来说，BDE别名特别重要，许多方法都需要传递一个数据库的别名作为参数。TSession提供了管理BDE别名的功能。 但是作者往往等到要发布程序时才发现，你的程序由于找不到别名而无法运行，必须在一台已经装了BDE管理程序的机上才能用，你一定非常失望。不要紧，只要在程序中加入以下语句，你的程序就又可以执行。 AddAlias用于为Paradox、dBase或文本创建别名，不需要连接参数，...[ 查看全文 ]

  霸天嚣张的活着

  01
• 
  用Delphi实现超级链接

  标签：编程语言 网络编程

  在许多程序的关于对话框中，我们常可以看到超级链接式的标签，只须轻轻一点，就能立即启动电子邮件程序给作者写信,或者启动浏览器观看某主页，或者远程登录，或者自动链入新闻组 如果你苦于找不到实现这些功能的Delphi控件，又无法在帮助文件中找到相关主题，那不妨参照下文，亲手一试！ 别看上述的超级链接功能繁多，其实用一条函数就能完成，那就是ShellAPI单元中的ShellExecute。不要误以为...[ 查看全文 ]

  你有这用户名吗

  641
• 
  用Delphi实现远程屏幕抓取

  标签：Delphi

    在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi自行编制一个灵活的远程屏幕抓取工具，简述如下。 一、软硬件要求。 Windows95/98对等网，用来监视的计算机（...[ 查看全文 ]

  lifulailawyer

  1011