Если вы хотите сопоставить некоторую часть строки без каких-либо необычных символов подстановки, как вы указали в комментарии к другому ответу, то вы можете использовать простую функцию, подобную этой:
function FindMatchStr(Strings: TStrings; const SubStr: string): Integer;
begin
for Result := 0 to Strings.Count-1 do
if ContainsStr(Strings[Result], SubStr) then
exit;
Result := -1;
end;
Если вы хотите сопоставление без учета регистра, вы можете использовать это:
function FindMatchText(Strings: TStrings; const SubStr: string): Integer;
begin
for Result := 0 to Strings.Count-1 do
if ContainsText(Strings[Result], SubStr) then
exit;
Result := -1;
end;
ContainsStr
и ContainsText
определены в RTL-единице StrUtils
и соответствуют стандартному соглашению Str
для указания сравнения с учетом регистра и Text
для указания без учета регистра.