Работа с текстовым файлом

[Vasya]

Во первых не #10, #13, а #13,#10,важна последовательнось. Кроме того комбинация символов (по крайней мере в Делфи) это #13+#10. Попробуйте, если не получится, придется считывать текст построчно и считать слова в строчках, сейчас найду этот код.

заработало

[puporev]

Вот и хорошо, что заработало.

[Vasya]

только ломаю голову как бы все же проверить повторяющееся пробелы, и и наличия символа Eoln в конце строки?

[puporev]

Символ конца строки фиксируется автоматически при наборе текста в файл при нажатии Enter, иначе в текстовом редакторе типа Блокнот не произойдет переход на новую строку. Проверить лишние пробелы можно по разному, самое простое сразу их удалить. Если нужно, скину код.

[Vasya]

скиньте плз

[puporev]

Я не видел начала твоего кода но если v-это строка, то тогда так:

for i:=length(v)downto 1 do 
while pos('_ _',v)>0  do  delete(a,pos('_ _',v),1);

Здесь _ это пробел. Смысл, пока два пробела подряд, то один удаляем. Обязательно с конца строки, иначе не будет работать.
Вставляешь сразу после того как считал файл в строку.

[Vasya]

а что здесь:

delete(a,pos('_ _',v),1);

а обозначает?

[puporev]

Исправь на v, просто не заметил.

[Vasya]

тогда появляется ошибка: [Error] Task.dpr(22): Constant object cannot be passed as var parameter

[puporev]

Приведи весь код или хотя бы начиная с Var, я так не могу понять.