[fpc-pascal] any free pascal standard function to compare a string against an array of string?

[Dennis]

is there a function like
  if    IsOneOf('subtext', ['abc','cde','fecg','hig'])   then begin
...
end;

is there such a function IsOneOf(TheSubString : String; const TheStrings
: array of String) : Boolean
?
if yes, what is its name and unit?

Dennis
_______________________________________________
fpc-pascal maillist - fpc-***@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/m

[Michael Van Canneyt]

Post by Dennis
is there a function like
  if    IsOneOf('subtext', ['abc','cde','fecg','hig'])   then begin
...
end;
is there such a function IsOneOf(TheSubString : String; const TheStrings
: array of String) : Boolean
?
if yes, what is its name and unit?

IndexStr in strutils:

https://www.freepascal.org/docs-html/current/rtl/strutils/indexstr.html

Michael.

[OBones]

Hello,

I would use IndexStr from StrUtils:
https://www.freepascal.org/docs-html/rtl/strutils/indexstr.html

  if IndexStr('subtext', ['abc','cde','fecg','hig']) >= 0  then

Regards

Post by Dennis
is there a function like
  if    IsOneOf('subtext', ['abc','cde','fecg','hig'])   then begin
...
end;
is there such a function IsOneOf(TheSubString : String; const
TheStrings : array of String) : Boolean
?
if yes, what is its name and unit?
Dennis
_______________________________________________
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

_______________________________________________
fpc-pascal maillist - fpc-***@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mai

[David Copeland]

Dennis,

Look at AnsiMatchStr in strutils.

Dave.

Post by Dennis
is there a function like
  if    IsOneOf('subtext', ['abc','cde','fecg','hig'])   then begin
...
end;
is there such a function IsOneOf(TheSubString : String; const
TheStrings : array of String) : Boolean
?
if yes, what is its name and unit?
Dennis
_______________________________________________
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal