Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Вниз

Выделение слов из текста   Найти похожие ветки 

← →
Сергей Ж.   (2003-09-26 21:17) [0]

Как мне из тектва в Tmemo выделить все слова и поместить их а массив? Разделители слов - это пробел, запятая, точка и т.д.

---

← →
Zacho   (2003-09-26 21:38) [1]

RTFM pos, copy

---

← →
Сергей Ж.   (2003-09-26 22:15) [2]

А примерчик :) RTFM читалю. А вот алгоритм не придумал :(
Спасибо.

---

← →
Zacho   (2003-09-26 22:51) [3]

Ну вот пример добавления слов в другое Memo. Думаю, на массив сам переделаешь
var
i,spos:integer;
Delimiters: set of Char;
begin
spos:=1;
Delimiters:=[ #10,#13," ",".",","];
for i:=1 to Length(Memo1.Lines.Text) do
begin
if Memo1.Lines.Text[i] in Delimiters then
begin
if (i-spos)>1 then Memo2.Lines.Add(copy(Memo1.Lines.Text,spos,(i-spos)));
spos:=i+1;
end;
end;
end;
В множество Delimiters добавь остальные нужные тебе символы-разделители слов.

---

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

Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.013 c