Delphi AnsiMidstr判断某一字符是否在字符串中.rar

Delphi 判断某一字符是否在字符串中，这里用到了Delphi AnsiMidstr函数、length函数，第一个文本框输入的是完整的字符串，第二个是目标字符串，程序将在完整字符串中查找目标字符串是否存在： 　　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;