Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];
ВнизВыборка слов из строки. Найти похожие ветки
← →
t100 (2004-07-26 11:16) [0]Есть ли у кого исходник?
← →
Ega23 © (2004-07-26 11:18) [1]Исходник строки? Или Слова? :о)
Pos тебе поможет.
← →
t100 (2004-07-26 11:21) [2]Неа-исчу исходник МАТРИЦЫ,а то перезагружается часто:-)
Попробую...
← →
KSergey © (2004-07-26 11:23) [3]Можно еще из D7 утырить PosEx (ну или написать) - тоже удобно для этой задачи
← →
t100 (2004-07-26 11:25) [4]СПАСИБО
← →
[lamer]Barmaglot © (2004-07-26 11:26) [5]Есть методы еще проще чем pos. К сожалению дельфи на компе сейчас нет. Принцип прост заменить все пробелы на #13 делается одной командой. затем занести полученную строку в стринглист...
← →
KSergey © (2004-07-26 11:28) [6]> [5] [lamer]Barmaglot © (26.07.04 11:26)
Кода - меньше. Но не уверен, что экономнее
Хотя, смотря как предполагается строки в итоге хранить
← →
Рамиль © (2004-07-26 11:30) [7]Из давней курсовой на паскале...
type
CharSet = set of char;
const
Delimeters: CharSet = [" ", ".", ",", ";", "(", ")", "=", "!", "?", ":", """", "-"]; {и т. д.}
....
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
// StrWord - очередное слово
end;
end;
end;
← →
[lamer]Barmaglot © (2004-07-26 11:38) [8]to KSergey
А чем не нравится StringList?
← →
Anatoly Podgoretsky © (2004-07-26 12:07) [9][lamer]Barmaglot © (26.07.04 11:26) [5]
Ты описываешь составление списка слов, но ни как не выборку
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.032 c