Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c