Выборка слов из строки.

← →
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)

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

Из давней курсовой на паскале...
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;

to KSergey

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

Выборка слов из строки. Найти похожие ветки