Работа со строками, динамические списки Опции

[habi]

Volvo писал: _index.php?s=&showtopic=6972&view=findpost&p=50569 .
(тут стоит защита от спама) _ замените на forum.pascalnet.ru

Так вот можно ли переделать этот метод, так чтобы можно было k-слово?
Пример:
Дано: "Привет, как дела?"
Вывод:
Привет
Как
Дела

Нужно взять слово "Как", то есть k[2].
Помогите переделать пожалуйста.

Сообщение отредактировано: habi - 11.05.2008 19:05

[compiler]

если с минимальными изменениями(не менять начальные функции), то можно так..

{...}
   Count := GetWords(s, L, ['-', ';', '.']);
   if (i > count) or (i < 1) then writeln('Error!') else begin   
      p := L.first;
      while i > 1 do begin
	 p := p^.next;
	 i:=i-1;
      end;
      writeln(p^.data);
   end;
{...}

i - порядок слова(индексирование начинается с единицы)

зы
В ЧаВо: Разбиение на слова. Все способы. , есть небольшая "оплошность", присутствует лишняя глобальная переменная i(строка 62), кто может подправьте..

Сообщение отредактировано: compiler - 11.05.2008 19:46