Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Выборка слов из строки. [D5, WinXP]

t100 © (2004-07-26 11:16:00)
Есть ли у кого исходник?

Anatoly Podgoretsky (2004-07-26 12:07:00) [1]
[lamer]Barmaglot © (26.07.04 11:26) [5]
Ты описываешь составление списка слов, но ни как не выборку

[lamer]Barmaglot (2004-07-26 11:38:00) [2]
to KSergey

А чем не нравится StringList?

Рамиль (2004-07-26 11:30:00) [3]
Из давней курсовой на паскале...
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;

KSergey (2004-07-26 11:28:00) [4]
> [5] [lamer]Barmaglot © (26.07.04 11:26)

Кода - меньше. Но не уверен, что экономнее
Хотя, смотря как предполагается строки в итоге хранить

[lamer]Barmaglot (2004-07-26 11:26:00) [5]
Есть методы еще проще чем pos. К сожалению дельфи на компе сейчас нет. Принцип прост заменить все пробелы на #13 делается одной командой. затем занести полученную строку в стринглист...

t100 (2004-07-26 11:25:00) [6]
СПАСИБО

KSergey (2004-07-26 11:23:00) [7]
Можно еще из D7 утырить PosEx (ну или написать) - тоже удобно для этой задачи

t100 (2004-07-26 11:21:00) [8]
Неа-исчу исходник МАТРИЦЫ,а то перезагружается часто:-)
Попробую...

Ega23 (2004-07-26 11:18:00) [9]
Исходник строки? Или Слова? :о)

Pos тебе поможет.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »