Delphi判断某一字符是否在字符串中，这里用到了DelphiAnsiMidstr函数、length函数，第一个文本框输入的是完整的字符串，第二个是目标字符串，程序将在完整字符串中查找目标字符串是否存在： begin iflength(edit2.Text)=1then begin p:=length(edit1.Text); fori:=1topdo begin iftrim(edit2.Text)=AnsiMidstr(edit1.Text,i,1)then begin label4.Caption:=
