//▎============================================================▎//
//▎================① 扩展的字符串操作函数 ===================▎//
//▎============================================================▎//
//从文件中返回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'); 返回:"00001"}
function IntToStrSp(Value: Integer; SpLen: Integer = 3; Sp: Char = ','): string; {测试通过}
{* 带分隔符的整数-字符转换}
function ByteToBin(Value: Byte): string; {测试通过}
{* 字节转二进制串}
function StrRight(Str: string; Len: Integer): string; {测试通过}
{* 返回字符串右边的字符 Examples: StrRight('ABCEDFG',3); 返回:'DFG' }
function StrLeft(Str: string; Len: Integer): string; {测试通过}
{* 返回字符串左边的字符}
function Spc(Len: Integer): string; {测试通过}
{* 返回空格串}
function Replace(Str,s1,s2:string;CaseSensitive:Boolean):string; {测试通过}
{* 返回将指定字符s1用字符串s2替换后的字符串,可支持大小写敏感由CaseSensitive操作}
{example: replace('We know what we want','we','I',false) = 'I Know what I want'}
function Replicate(pcChar:Char; piCount:integer):string;
{在一个字符串中查找某个字符串的位置}
function StrNum(ShortStr:string;LongString:string):Integer; {测试通过}
{* 返回某个字符串中某个字符串中出现的次数}
function FindStr(ShortStr:String;LongStrIng:String):Integer; {测试通过}
{* 返回某个字符串中查找某个字符串的位置}
function SubStr(psInput:String; BeginPlace,CutLeng:Integer):String; {测试通过}
{* 返回从位置BeginPlace开始切取长度为CatLeng字符串}
function LeftStr(psInput:String; CutLeng:Integer):String; {测试通过}
{* 返回从左边第一为开始切取 CutLeng长度的字符串}
function RightStr(psInput:String; CutLeng:Integer):String; {测试通过}
{* 返回从右边第一为开始切取 CutLeng长度的字符串}
function PadLStr(psInput:String; piWidth:Integer; pcPadWith:Char):String; {测试通过}
{* 返回从psInput字符串左边开始用pcPadWith填充后总长度为PiWidth的字符串}
function PadRStr(psInput:String; piWidth:Integer; pcPadWith:Char):String; {测试通过}
{* 返回从psInput字符串右边开始用pcPadWith填充后总长度为PiWidth的字符串}
function PadCStr(psInput:String; piWidth:Integer; pcPadWith:Char):String; {测试通过}
{* 返回从psInput字符串两边开始用pcPadWith填充后总长度为PiWidth的字符串}
function ChrTran(psInput:String; pcSearch:Char; pcTranWith:Char):String; {测试通过}
{* 返回替换后字符串[替换单个字符] Examples: ChrTran('abCdEgdlkh','d','#'); 返回'abC#Eg#lkh'}
function StrTran(psInput:String; psSearch:String; psTranWith:String):String; {测试通过}
{* 返回替换后字符串[替换字符串] Examples: StrTran('aruyfbn','ruy','=====');; 返回'a=====fbn'}
function Stuff(psInput:String; piBeginPlace,piCount:Integer; psStuffWith:String):String;
{ *返回替换后字符串[替换字符串] Examples: Stuff('ABCDEFGHI',3,4,'12345');返回'AB12345GHI'}
procedure SwapStr(var s1, s2: string); {测试通过}
{* 交换字串}
function LinesToStr(const Lines: string): string; {测试通过}
{* 多行文本转单行(换行符转'\n')}
function StrToLines(const Str: string): string; {测试通过}
{* 单行文本转多行('\n'转换行符)}
function Encrypt(const S: String; Key: Word): String;
{* 字符串加密函数}
function Decrypt(const S: String; Key: Word): String;
{* 字符串解密函数}
function varIIF(aTest: Boolean; TrueValue, FalseValue: Variant): Variant;
function varToStr(const V: Variant): string;
{* VarIIF及VartoStr为变体函数}
function IsDigital(Value: string): boolean;
{功能说明:判断string是否全是数字}
function RandomStr(aLength : Longint) : String;
{随机字符串函数}