функция разбиения строки на слова

← →
denis24 (2004-01-22 13:56) [0]

Может есть у когонить сабж?

← →
Opuhshii © (2004-01-22 14:25) [1]

Вообще строки на слова уже разбиты, пробелами или иными разделителями,...

возможно вам нужен TStrings.CommaText, описание в справке,..

← →
zamkom (2004-01-22 14:33) [2]

На самом деле более подробно объясни что тебе надо.

← →
VAleksey © (2004-01-22 14:37) [3]

RXLib
Модуль StrUtils.

← →
Рамиль © (2004-01-22 14:46) [4]

Вот, просили недавно лабораторку написать на паскале, может подойдет

CharSet = set of char; const Delimeters: CharSet = [" ", ".", ",", ";", "(", ")", "=", "!", "?", ":", """", "-"]; {и т. д.} .......... while not EOF(InFile) do begin ReadLn(InFile, Str); Str := Str + " "; k := 1; for i := 1 to length(Str) do if Str[i] in Delimeters then begin StrWord := copy(Str, k, i - k); k := i + 1; if StrWord <> "" then begin //найдено очередное слово end; end; end;

← →
Тимохов © (2004-01-22 14:49) [5]

Рамиль © (22.01.04 14:46) [4]
Что будет в случае такой строки "ааа,ббб,ввв"?

← →
Тимохов © (2004-01-22 14:50) [6]

Во блин

> Str := Str + " ";

не заметил.
Виноват

у меня есть, и на слова, и извлечение Nго слова из строки и т.д. и т.п.

http://delphibase.endimus.com/

← →
denis24 (2004-01-22 16:55) [9]

все нашел
спасибо

функция разбиения строки на слова Найти похожие ветки