//寻找与目标字符串最匹配的字符串 function MaxMatchStr(DestStr:String;Strs:array of String):String; //删除Text中的空格 function FmtText(Text:String):String; //格式化浮点数,修正其中的浮点误差 function FmtFloat(Value:Extended;Digits:Integer=4):Double; //在Str中替换子串 procedure ReplaceStr(var Str:String;const SourceStr,