Поиск слова

[rob7777]

Добрый день! Для поиска использую функцию Ansipos, но у нее есть один недостаток. Мне нужно чтобы поиск ввелся только по первым буквам, а она начинает искать совпадения во всем слове. например: арбуз. введу "уз", он мне выведет это слово, а должен только "узник" и все остальные слова начинающиеся на "уз". Может функцию другую взять?

[ZuBy]

Поставь пробел

if Pos(' уз', str) >0 then

[rob7777]

Так вообще не работает...

[Stilet]

Слова где? В строке? - разбивай строку:

with TStringList.Create do begin
 DelimitedText:=Текст;
 if IndexOf('уз')<>-1 then Узник найден;
 free;
end;

Т.е. используй класс TStringList. Только не обязательно так как я показал, это просто пример. Создай один раз переменку этого типа и юзай.

[northener]

IndexOf не ищет частичное совпадение.

[doktor255]

for i := 0 to TS.count -1 do if Copy(TS[i], 1, 2) = 'уз'
then ...

и т.д. и т.п.

[northener]

Сообщение от doktor255

и т.д. и т.п.

Согласен, только зачем тогда стринглист? Достаточно PosEx+Copy.

[rob7777]

всем благодарен, особенно doktor255, спасибо за идею, доделал что хотел)