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

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

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

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

{...}
   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), кто может подправьте..

Спасибо.

Вот набросал код, http://pastebin.com/m4e1fc194 пользуясь FAQ.

Не могу понять, как правильно описывать процедуры.

Алгоритм такой.
Сначала открываем файл, ищем строку(с помощью getwords), и если эта строка максимальная, то заносим эту строку в strmax, потом повторно используем гетвордс, для вытаскивания и-того слова.
...


В идеале думаю надо сделать процедуру поиска макс строки отдельно.

Ты бы задание привел полностью, а то догадываться, зачем тебе эти преобразования - не очень прельщает... Может быть все проще делается...

Мне нужно i-oe слово максимальной строки файла.
желательно чтобы в параметры процедуры указывалось номер слова и имя файла.
и желательно список, а не массив =)

"Максимальной строки" по какому параметру? Самой длинной? Тогда твой алгоритм из поста №4 неверен.

ой =)
Максимальная строка - это строка, в которой содержится наибольшее количество слов.
Словами не являются символы вида: ,.!\/!.........
=)

Вот это проверь:

Спасибо. а зачем инитЛист, что делает?

ОбNILяет указатели first и last... Когда переменные типа TWordList были описаны глобально, они обнулялись компилятором. Теперь они описываются локально, значит позаботиться о присвоении начальных значений должен программист...

Спасибо учту, дабы, не дать утечки =)