文件名称：Delphi AnsiMidstr判断某一字符是否在字符串中.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 05:26:37
Delphi源码-界面编程
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;
【文件预览】：
codesc.net
----0160()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Unit1.dfm(1KB)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)