Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Внизфункция разбиения строки на слова Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.028 c