Pos関数の比較文字列複数バージョン

まずはソースから。

function IsExistsEx(SubStr,Str:string;aPos:integer=-1):boolean;
var s:string;
begin
 Result:=False;

 while SubStr<>'' do begin
  s:=NP_Trim(NP_CutFirst(SubStr,_SP));
  if s='' then continue;

  //0 Start
  if aPos=-1 then Result:=(Str.IndexOf(s)<>-1)
             else Result:=(Str.IndexOf(s)=aPos);

  if Result then break;
 end;
end;

シェアする

  • このエントリーをはてなブックマークに追加

フォローする