门面模式

前些天发现了一个巨牛的人工智能学习网站，通俗易懂，风趣幽默，忍不住分享一下给大家。点击跳转到网站，这篇文章男女通用，看懂了就去分享给你的码吧。在阎宏博士的《JAVA与模式》一书中开头是这样描述门面（Facade）模式的：门面模式是对象的结构模式，外部与一个子系统的通信必须通过一个统一的门面对象进行。门面模式提供一个高层次的接口，使得子系统更易于使用。

当谈到门面模式（Facade Pattern）时，我们可以将其比作一个建筑物的门面，门面是人们与建筑物进行交互的入口，隐藏了内部的复杂结构，使得人们可以轻松地与建筑物交互而不必了解其内部的复杂性。现在，你只需要告诉系统你想要的咖啡类型，比如浓缩咖啡、拿铁或卡布奇诺，系统会自动处理所有的细节并将咖啡制作好，然后直接交给你。而咖啡点单系统（门面）则提供了一个简化的接口，封装了这些子系统的复杂性，使得顾客可以轻松地购买咖啡而不必了解内部的实现细节。简单来说，门面模式提供了一个统一的接口，用于简化复杂系统的访问。

还是本着上篇文章的原则，只不过在Delphi中string有点特殊！先了解一下Delphi中的string 1.string = AnsiString = 长字符串，理论上长度不受限制，但其实受限于最大寻址范围2的32次方=4G字节，变量Str名字是一个指针，指向位于堆内存的字符序列，字符序列起始于@Str[1]，@Str[1]偏移负16个字节的空间存储着字串长度、引用计数等信息。

      用Delphi获取其它系统的数据时，由于一些敏感信息不能以明文的形式进行存储，所以在获取到数据后，数据一般都是密文！如何解密主要按照服务器端的加密顺序逆序进行解密！    一般情况下，服务器端对敏感信息都要先进行加密(使用某种加密算法如:BlowFish,AES等)，而后对其进行Base64编码！如果要想解密，第一个步骤就是要在Delphi端我们就要先对其进行Base64解

经纬度可以使用百度的地图API来获取经纬度 最近在研究微信的一些功能，用来做数字营销。如自定义菜单、自动应答、地理位置匹配等需求： 例： 某企业销售仪器，在某用户要咨询某仪器问题时，需要用户提供自己的位置，系统会返回离他最近的代售点或专家。 开发这个需求： 1.需要将专家或代售点位置做成经纬度，放入数据库； 2.在用户提交自己位置后，获取经纬度； 3.根据当前位置的经纬度，框

生成树型结构有2种方法：1.动态生成树结点2.静态生成树结点这里暂不讨论动态生成树，先实现静态生成！所谓静态生成树结点是指通过遍历数据源的方式一次性把所有树结点全部加载，说起生成树避免不了谈起数据库结构的设计。数据库设计的方法有2种：1.单编号法单编号法是以每个类为统一编号，如其有子类，则顺着该编号向后排。如水果编号为001，则苹果为水果的一类，则应为001001等等，

//想实现在函数中生成Memo1的内容，而后赋给Memo.Lines//方法1：var s: TStrings;begin s := TStringList.Create; AddMemoData(s); Memo1.Lines := s; //进行对象复制,而不是简单的指针赋值{procedure TCustomMemo.SetLines(Valu

在Delphi中,Inifiles单元中有一个TStringHash的类，不过它的Value仅支持Integer(其实也不是问题，有其它类型可以将变量变为Pointer)，有点不舒服，今天没事做就把它替换为variant了，其中Key的名称大小写无关，就是为了加快开发速度！使用Hashtable,查找和删除复杂度都是常数级别的!type PPHashItem = ^PHashItem

  还是一个原则，在此不再详述！type PData=^TData; TData = packed record a: Integer; b: Word; end;var bs: array[0..5] of Byte; data: PData;begin FillChar(bs, Length(bs), 0); bs[

 在正则满天下的今天，直接做字符串截取来实现字符串分割似乎有点土，所以先用正则来实现一下字符串分割。uses PerlRegEx;var reg:TPerlRegEx ; List:TStrings;begin List:=TStringList.Create; reg:=TPerlRegEx.Create(nil); try reg.

结构体与TByteDynArray转换,无非是进行内存复制的过程

这种模式如果不用面向对象的思想的话，也就是case  Type of  1:doCreditCardPayment();  2:doCheckPayment()end;然后在doCreditCardPayment中复制一段其它支付方式的代码拷到这个过程中，就搞定了！但以后如果需要新增加一种付款方式的话，您必须要打开程序，添加某过程，编译。然后进行整体业务流程的测试。往往

//这里的List是一种容器，是一种泛指，可以是List、StringList、ThreadList、ObjectList等！//现以List为例做一个例子！unit StudentExample;interfaceuses Classes,SysUtils,Dialogs;type //定义结构体及其指针，定义指针目的在于把指针放到List容器中

首先强调一点：任何数据在内存中都是线性存储的，归根结底都是由一个字节数组表示的！如：Integer占4个存储单元，32bit，在内存中他就是由一个长度为4的字节数组来表示！只不过在读取该类型时，系统帮我们根据不同的数据类型对数据进行捆绑读取(如果上学时学过汇编就可以想出，如果自己取的话需要把高地址的内容乘以某值后再加上低址的值)。值得注意的是：对于Delphi中的多维动态数组，不要用类

平时写程序时经常要把一些Key与Value保存起来，但一般数据量都不大，故不想用TStringHash来做。而用TStringList来做，还要写一个"="，挺别扭！而且数据类型还有限制。自己从VCL中找了一段，感觉挺好用的，以后用它玩一玩！不过对Key值的搜索采用遍历方式，数据量大就慢了，建议采用HashTable。注:Key与Value均不受数据类型限制！ TLookupList

有很多种方法：1.利用SQL的Exec()来计算2.利用JavaScript来计算3.利用逆波兰式来计算(比较复杂)这里用JavaScript来实现 uses ComObj;function TForm1.DoCaculate(exp: string): string;var script: Variant;begin script := Crea

用无类型指针释放结构体，要特别注意！ unit Unit2;interfaceuses Classes,SysUtils,Dialogs;type PStudent = ^TStudent; TStudent = packed record Name: String;//这里以String为例,众所周知，String为一个指针，不用Get