ZdtString(国外英文资料).docVIP

ZdtString(国外英文资料) 单位ZdtString; 接口 使用注册表、类、SysUtils、工具、对话框、窗口; 类型 TzStr =类 公共 类过程分割(源、熟食:字符串;ls:tstring); 类函数ext(文件名:字符串):字符串; class函数ChangeExt(文件名，ext:字符串):字符串; 类函数子(源、熟食:字符串;索引:整数;错误:字符串=):字符串; 类函数提取tfil珐琅(文件名:字符串):字符串; 类过程替换文件名(var文件名:字符串;const替换:字符串); 类函数readstring(const键，默认:字符串):字符串; 类过程写入字符串(const键、值:字符串); 类函数GetNumberFromStr(const str:字符串;const十六进制:布尔=false):字符串; 类函数CmpStrWithNum(s1，s2:字符串):整数; 类函数IsInt(s:string):boolean; 类函数Isfloat(s:string):boolean; 类函数类似(s1、s2:string):整数; 类函数比较(源、模式:字符串):布尔; 类函数提取器(值、分隔符:字符串):字符串; class函数Int2BinStr(value:Integer;MinBit:Integer):字符串; 类函数填充(源:字符串;StrLength:整数;填充字符:char):字符串; 类函数替换(常量、旧模式、新模式:字符串、替换、忽略:布尔):字符串;重载; 类函数替换(const S，NewPattern:字符串;索引，count:整数):字符串;重载; 类函数GBKLength(const:字符串):整数; 类函数DateToStr(dt:tdatetime):字符串; 类函数TimeToStr(dt:tdatetime):字符串; 类函数DateTimeToStr(dt:tdatetime):字符串; 类函数(i，length:整数):字符串; 类函数Gb2Uni(str:字符串):widestring; 类函数Uni2Gb(str:widestring):字符串; 类函数XToUnicode(Str:字符串;CodePage:integer):WideString; 类函数单ode托克斯(Str:WideString;CodePage:integer):字符串; 类函数Gb2Big5(Str:字符串):字符串; 类函数Big52Gb(Str:字符串):字符串; 类函数Uni2utf8(const WS:WideString):UTF8String; 类函数Utf82Uni(const WS:UTF8String):WideString; 类函数dt2id:整数; 结束; 实现 / / / / / / / / / / / / / / / / / / / / / / / / { TzStr } TzStr类函数。CmpStrWithNum(s1,s2:string):整数; var索引，i1，i2:整数;s:字符串;num1，num2:字符串;isnum:布尔; 开始 如果s1=s2 开始 结果:= 0; 退出; 结束; 指数:= 1; isnum:= false; (真正的) 开始 如果(s1(指数) = 0)和(s1(指数) = 9 )和(s2(指数) = 0)和(s2(指数) = 9 ) 开始 num1=num1+s1索引;num2:=num2+s2索引; 其他结束开始 结束; 结束; 结束; class函数2binstr(value，MinBit:Integer):字符串; i，j:整数;s:字符串; 开始 setlength(s、32); 对于i:=length(s)向下到1 开始 [我]:= 0 ; 如果奇数(值)那么s i:=1; 值:=值shr 1; 结束; 我:= 1; (i小于length(s)) 开始 如果s i+1小于s 1，那么就会断裂; i:=i+1; 结束; 删除(s，2，i-1); 如果长度(s)小于minbit 开始 结束; 结果:= s; 结束; TzStr类函数。ExtractFilenameNoExt(文件名:字符串):字符串; var s，ext:string;i:整数; 开始 s:= extractfilename(文件名); ext:= extractfileext(文件名); 删除(s、length(s)-length(ext)+1、长度(ext)); 结果:= s; 结束; TzStr类函数。ExtractURL(价值,分隔符:string):字符串; 常量 URLHeads:array[1 . .= 6)的字符串 ( ht