Задача по проверке слов в предложении., Проблема в выделении слова из текста. Опции

[kost85]

Здравсвуйте.
Есть такая задача.
Вводится строка. Требуется в ней перебрать все слова и проверить их на что-то. Другими словами вычленить слова из строки.
Сначала забивал все слова из строчки в (array [1..n] of string) - все было отлично. Теперь препод хочет что бы я забивал каждое слово в другую строку и проверял ее. Вот не пойму, как сразу в цикле перебора строки получать слово , записывать его в перем. типа string , затем проверять(ну это все под контр-ем), а затем сбрасывать и снова записывать очередное слово...
Может кто сталкивался.
Заранее огромное спасибо.

[T i m e]

if s[1] = ' ' then delete(s,1,1);{<<---Зачем? Ведь ты не чистил строку!}

Это удаление впереди стоящих пробелов.

if pos(' ',s) > 0 then word := copy(s,1,pos(' ',s)-1) {<<---Допустим..Но получается бесконечный цикл, ведь строка не отчищается!Он берет ближайший пробел!}
else word := s; {<<---И тут тоже..Досюда в твоем и не дойдет..}

Извините, ошибся просто... конечно там ещё в этом месте надо удалять очередное слово: delete(s,1,pos(' ',s))
Просто быстро писал... не заметил...

if s <> '' then begin

Ну тогда и это здесь уже не нужно проверять.
Он никогда ведь не пойдёт в это условие с пустой строкой...

Сообщение отредактировано: T i m e - 1.03.2007 20:15