Скачать: CL | DM;

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

← →
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 + " ";

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

---

← →
TButton ©   (2004-01-22 15:02) [7]

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

---

← →
panov ©   (2004-01-22 16:44) [8]

http://delphibase.endimus.com/

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c