delphi设计模式 多语言开发

系统支持简体、繁体、英文三种语言，开发语言Delphi

type
   //接口定义
  ILanguageTrans = interface
    ['{EE1BAE27-2E88-4F76-8AF3-169B6C7BF7C1}']
    procedure ReadForm; //把界面所有控件翻译
    procedure WriteForm;//把界面所有控件写入
    function GetText(Msg: string): string;
    function BIG5ToGB(Str: string): string;
    function GBToBIG5(Str: string): string;
    procedure ShowManager;  //打开管理界面


  end;


  TLanguageTrans = class(TInterfacedObject, ILanguageTrans)
  private
  protected
  public
    constructor Create(Form: TForm; MTSName, ModuleCode: string); { 构造方法 }
    procedure ShowManager; virtual; //管理界面
    procedure ReadForm; virtual;
    procedure WriteForm; virtual;
    function GetText(Msg: string): string; virtual;
    function BIG5ToGB(Value: string): string; virtual;
    function GBToBIG5(Value: string): string; virtual;
  end;


  // 保存到数据库
  TDBLanguageTrans = class(TLanguageTrans)
  private
    FFrmForm: TForm;
    FTranDataSet: TClientDataSet;
    FDB: TDBClass;
    FMTSName: string;
    FModuleCode: string;
    function ReadData(ConName: string): string;
  protected


  published
    property frmForm: TForm read FFrmForm write FFrmForm;
    property TranDataSet: TClientDataSet read FTranDataSet write FTranDataSet;
    property DB: TDBClass read FDB write FDB;
    property MTSName: string read FMTSName write FMTSName;
    property ModuleCode: string read FModuleCode write FModuleCode;
  public
    constructor Create(Form: TForm; MTSName, ModuleCode: string); { 构造方法 }


    procedure ShowManager; override;
    procedure ReadForm; override;
    procedure WriteForm; override;


  end;


  // INI
  TIniLanguageTrans = class(TLanguageTrans)
  private
    FIniFileName: string;
    FFrmForm: TForm;


  published
    property IniFileName: string read FIniFileName write FIniFileName;
    property frmForm: TForm read FFrmForm write FFrmForm;


  public
    constructor Create(Form: TForm; MTSName, ModuleCode: string); { 构造方法 }
    procedure ReadForm; override;
    procedure WriteForm; override;
    procedure ShowManager; override;


  end;


  //工厂模式
  TLanguageTransFactory = class
  private
  public
    function Create(Form: TForm; MTSName, ModuleCode: string): TLanguageTrans;
  end;


客户端调用：

var
  LanguageTransFactory: TLanguageTransFactory;
begin
  (LanguageTransFactory.Create(self, MTSName, ModuleCode)).ReadForm;


如果增加或更改存储方式,如XML，只需在工厂类修改代码，其它客户端调用的地方不必修改,实现客户端代码与类的松散耦合