Question

DELPHI函数 检查字符串中是否含有

写个东西，需要检查字符串中是否含有 ‘.’

Answer 1

//楼上一看就知道是复制的, 都没有换行
//Delphi有个函数POS, 是判断是否含有字串的
//我写个函数给你
function HaveDot(Str: string): Boolean;
var
i: Integer;
begin
result := false;{假设没有'.'}
i := Pos('.', Str);//字串是'.'
if i <> 0 then
result := true;{如果有'.', 返回true}
end;
//不懂或者交流Delphi可以加QQ 272399954

Answer 2

用处：删除字符串左右的占位空字符（以下简称空格），比如空格，回车，换行，制表Tab等符号，并返回删除后的String。 代码：第一个函数：ltrim() 消除字符串左边空格的函数，返回一个新的字符串function ltrim(str:String):String{var size =str.length;for(var i = 0; i < size; i++){if(str.charCodeAt(i) > 32) //解释：空格，tab,回车，换行charCode小于32{return str.substring(i);}}return “”;}第二个函数：rtrim() 消除字符串右边空格的函数，返回一个新的字符串：function rtrim(str:String):String{var size = str.length;for(var i = size; i > 0; i–){if(str.charCodeAt(i) > 32)//同上{return str.substring(0, i + 1);}}return “”;}第三个函数：trim() 消除字符串两边空格的函数，返回一个新的字符串：function trim(str:String):String{return rtrim( ltrim(str) );}字符串子串替换函数 replace()功能：将指定字符串中某子串替换成另一个字符串，并返回新字符串。用处极广。用法：replace (原字符串，要替换的子串，用来替换的子串)原字符串为 “Hi, a river is a story “,使用replace (”Hi, a river is a story “,”a”,”their”) ，则返回字符串“Hi, their river is their story”。常常用来替换词，屏蔽不好的用语等。function replace (str:String, replace:String, replaceWith:String):String{var sb:String = new String();var found:Boolean = false;for (var i = 0; i < str.length; i++){if(str.charAt(i) == replace.charAt(0)){found = true;for(var j = 0; j < replace.length; j++){if(!(str.charAt(i + j) == replace.charAt(j))){found = false;break;}}if(found){sb += replaceWith;i = i + (replace.length - 1);continue;}}sb += str.charAt(i);}return sb;}字符串子串删除函数remove()原理很简单，使用replace函数，将要删除的子串替换为空字符即可。用法 ：remove ( 原字符串， 要删除的子串);function remove(str:String, remove:String):String{return replace(str, remove, “”);}

Answer 3

if POS('.',Str)=0 then //存在
begin
填写代码
end;