Delphi开发技巧：字符串的相关判断

某一字符是否在字符串中

    本实例是用AnsiMidstr()函数获取指定字符串中的单个字符，也可以获取指定长度的子字符串。运行结果如图5.10所示。

图5.10  判断某一字符是否在字符串中

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i,p:Integer;
    begin
     if (Edit1.Text='')or(Edit2.Text='') then
     begin
       ShowMessage('请把信息添全。');
     end
     else
     begin
      if Length(Edit2.Text)=1 then
      begin
        p:=Length(Edit1.Text);
        for i:=1 to p do
        begin
          if Trim(Edit2.Text)=AnsiMidstr(Edit1.Text,i,1) then
          begin
            Label4.Caption:='在字符串中';
            break;
          end
          else
          begin
            Label4.Caption:='不在字符串中';
          end;
         end;
       end
       else
         ShowMessage('字符只能是单个字符。');
     end;
    end;

    字符串是由数字、大写字母或小写字母组成

    本实例是用StrToInt()函数来判断字符串是否由数字组成，当字符串不能由StrToInt()函数进行转换时，在异常处理中用Uppercase()和Lowercase()函数来判断字符串是由大写字符串还是小写字符串组成。运行结果如图5.11所示。

图5.11  判断字符串是由数字、大写字母或小写字母组成

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     Isstr : String;
    begin
     Isstr := Edit1.Text;
    try
     StrToInt(Isstr);
     ShowMessage('由数字组成！');
    except
     if Isstr=Uppercase(Isstr) then
      ShowMessage('由大写字母组成！')
     else
      if Isstr=Lowercase(Isstr) then
       ShowMessage('由小写字母组成！')
      else
         ShowMessage('无法识别，可能是混杂型。')
    end;
    end;

    字符串中的某一字符是否大写

    本实例先用Ansiuppercase()函数将要查找的字符串转换成大写，然后用AnsiMidstr()函数在字符串中进行查找。运行结果如图5.12所示。

图5.12  判断字符串中的某一字符是否大写

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
      s,x:String;
      i:Integer;
    begin
      s:=Ansiuppercase(Trim(Edit2.Text));
      for i:=1 to Length(Trim(Edit1.Text)) do
      begin
         if Ansiuppercase(Trim(Edit2.Text))=AnsiMidstr(trim(Edit1.Text),i,1) then
         begin
           Label3.Caption:='有';
           break;
         end
         else
           Label3.Caption:='没有';
      end;
    end;

    字符串中是否有小写字母

    本实例是用length ()函数来获取字符串的总长度，再用自定义函数IsLower()对字符串中的每个字符进行判断，如果是小写字母，则返回True。运行结果如图5.13所示。

图5.13  判断字符串中是否有小写字母

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     s : String;
     n,i,islow : Integer;
    begin
     islow := 0;
     s := Edit1.Text;
     n := Length(s);
     for i:=0 to n-1 do
      if IsLower(s[i]) then
      begin
        islow := 1;
        break;
      end;
     if islow>0 then
      ShowMessage('该字符串中有小写字母')
     else
      ShowMessage('该字符串中没有小写字母');
    end;

    字符串中是否有指定的字符

    本实例是用pos()函数来获取字符在字符串中的位置，如果返回的数字大于0，则表示该字符串中包含指定的字符，如果返回值为0，则不包含。运行结果如图5.14所示。

图5.14  判断字符串中是否有指定的字符

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     if pos(Edit2.Text,Edit1.Text)=0 then
      ShowMessage('没有指定的字符')
     else
      ShowMessage('字符串中包含字符'+Edit2.Text);
    end;

    字符是否可以转换成整数

    本实例是用StrToIntDef()函数来判断字符串是否为整数，如果字符串是整数，那么StrToIntDef(s,0)和StrToIntDef(s,1)将返回转换后的整数，如果字符串不是整数， StrToIntDef(s,0)将返回0，StrToIntDef(s,1)将返回1。运行结果如图5.15所示。

图5.15  判断字符是否可以转换成整数

    主要代码如下：
    function TForm1.IsIntStr(const S: String): Boolean;
    begin
     if StrToIntDef(S,0)=StrToIntDef(S,1) then
      Result:=True
     else
      Result:=False;
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     if IsIntStr(Edit1.Text) then
      ShowMessage('可以转换成整数')
     else
      ShowMessage('不可以转换成整数');
    end;

    字符中是否有汉字

    本实例是用Length()函数来获取字符串的长度，用Ord()函数来获取每个字符的ASCII码，当ASCII码的值大于$7F时，表示该字符是汉字的前一个字节，并用Copy()函数来获取当前的汉字。运行结果如图5.16所示。

图5.16  判断字符中是否有汉字

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     str,s,sj: String;
     i: integer;
    begin
     str := trim(Edit1.Text);
     i := 0;
     while i< Length(str) do
     begin
      if ord(str[i]) > $7F then
      begin
       s := Copy(str,i,2);
       sj :=sj+ '"'+s+'"';
       i := i+2;
      end
      else  i:=i+1;
     end;
     Label2.Caption := '在字符串中含有汉字'+sj;
    end;

    字符中是否有双字节

    中文所用的字符全是双字节字符，英文所用的字节全是单字节字符，也就是mbSingleByte。本实例是用ByteType()函数返回字符串指定位置上的字符，如果不是mbSingleByte，则表示为双字节字符。运行结果如图5.17所示。

图5.17  判断字符中是否有双字节

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     s,s1: String;
     i : Integer;
    begin
     s := Edit1.Text;
     i := 0;
     while i<Length(s) do
     begin
      if (ByteType(S,i) <> mbSingleByte) then
      begin
       s1 := s1+ Copy(s,i,2)+' ';
       i := i+2;
      end
      else
       i:= i+1;
     end;
     Label2.Caption := Trim(s1);
    end;

    判数输入的字符串是否为整数

    本实例是用库函数sign()来判断数字是否为整数，当传入的值小于0则返回?1，若传入的值大于0则返回1，否则返回0。在用sign()函数时，要在单元中加入Math单元。运行结果如图5.18所示。

图5.18  判数输入的字符串是否为整数

    主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     s : String;
     i : Integer;
    begin
     s:=Edit1.Text;
     try
      i:=StrtoInt(s);
      if sign(i)=1 then  //添加单元Math或 if i>0 then ...
       Label2.Caption := '是正整数'
      else
      begin
       if i=0 then
        Label2.Caption := '是整数'
       else
        Label2.Caption := '非正整数';
      end;
     except
      Label2.Caption := '输入无效';
     end;
    end;