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

[maloun]

Здравствуйте.
Мне нужно из текста вылавливать конкретные стринговые значения и мне жуть как хочется при этом использовать функцию case.
Но не знаю как это записать
case s в моём Pos(s,text) of всякие стринги...)
В общем нужно сканировать текст на содержание слов.

можно так сделать или я идиот?)

просто есть мысль сделать функцию которая ищет значения в тексте и можно кейсить эту функцию, но как узнать все слова (

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

case не работает со словами

[ArtGrek]

while eof(s) do
  i := Pos(s,text);
  showmessage('совпадение на позиции'+ Inttostr(i));
end;

как то так

[maloun]

какой eof(s)???
мб хотябы while i<>Length(s) do
или там while s[i+Length(slovo)-1]<>slovo

я ниче не понял...

[ArtGrek]

а в чем именно была суть идеии???
только в case?

[maloun]

как сканить текст на слова также как кейсом

supercase text of // суперкейсим текс на стринговые значения
'что': ;
'неужели': ;
'не реально': ;

end;

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

я в подобной ситуации использовал TStringList

[maloun]

помогло? :D
как его спользовать в этой ситуации?????
var
p:TstringList;
begin
p:TStringList.Create;
p.LoadFromFile('mytext.txt');
p.case of word ??????

[veniside]

если так уж не живется без case, бери хэш от строки.

[maloun]

а можно по подробней про хэш строки