Как использовать функцию Case

[Пепел Феникса]

помогло:

var SL:TStringList;
begin
 SL:=TStringList.Create;
 SL.add('FIRST');//у меня поиск регистронезависимый, по верхнему регистру
 SL.add('SECOND');
 case SL.IndexOf(AnsiUpperCase(s)) of
  -1://ничего не нашли
  0://нашлось FIRST
  1://нашлось SECOND
 end;

но это поиск по списку слов, а не по всей строке, как то делить её придется самим, или написать свою функцию.

[maloun]

Сообщение от Пепел Феникса

помогло:

var SL:TStringList;
begin
 SL:=TStringList.Create;
 SL.add('FIRST');//у меня поиск регистронезависимый, по верхнему регистру
 SL.add('SECOND');
 case SL.IndexOf(AnsiUpperCase(s)) of
  -1://ничего не нашли
  0://нашлось FIRST
  1://нашлось SECOND
 end;

но это поиск по списку слов, а не по всей строке, как то делить её придется самим, или написать свою функцию.

-1: ; так работает
-1: а так нет )
_______
можно написать функцию
которая проверяет текст на части масива
выдаёт номер слова в масиве