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

[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

[habi]

Спасибо.

[habi]

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

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

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


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

[volvo]

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

[habi]

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

Сообщение отредактировано: habi - 24.05.2008 20:06

[volvo]

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

[habi]

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

[volvo]

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

[habi]

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

Сообщение отредактировано: habi - 24.05.2008 22:39

[volvo]

зачем инитЛист, что делает?

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

[habi]

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