delphi 字符串的相关判断.docxVIP

转载他人博客文章，仅供学习之用某一字符是否在字符串中 本实例是用 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 b