unit Communal;
{* |<PRE>

|</PRE>}

interface

{$I CnPack.inc}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FileCtrl, ShellAPI, CommDlg, MMSystem, WinSock, IniFiles, DBTables, BDE,

  StdCtrls, ComObj, ADODB, Imm, DbCtrls, Db, Registry;

const

  // 公共信息
{$IFDEF GB2312}
  SCnInformation = '提示';
  SCnWarning = '警告';
  SCnError = '错误';
{$ELSE}
  SCnInformation = 'Information';
  SCnWarning = 'Warning';
  SCnError = 'Error';

{$ENDIF}

  C1=52845; //字符串加密算法的公匙

  C2=22719; //字符串加密算法的公匙

resourcestring

{$IFDEF GB2312}
  SUnknowError = '未知错误';
  SErrorCode = '错误代码：';
{$ELSE}
  SUnknowError = 'Unknow error';
  SErrorCode = 'Error code:';

{$ENDIF}

type
   EDBUpdateErr = class(Exception);//修改表结构时触发的错误句柄

//▎============================================================▎//
//▎================① 扩展的字符串操作函数  ===================▎//
//▎============================================================▎//

//从文件中返回Ado连接字串。
function GetConnectionString(DataBaseName:string):string;
//返回服务器的机器名称.

function GetRemoteServerName:string;

function InStr(const sShort: string; const sLong: string): Boolean;     {测试通过}

{* 判断s1是否包含在s2中}

function IntToStrEx(Value: Integer; Len: Integer; FillChar: Char = '0'): string;  {测试通过}
{* 扩展整数转字符串函数  Example:   IntToStrEx(1,5,'0