|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.01.2008, 00:21 | #21 |
Форумчанин Подтвердите свой е-майл
Регистрация: 21.01.2007
Сообщений: 193
|
Код:
|
24.01.2008, 00:29 | #22 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Напиши Var
v: string; Как можно считывать файл в символ? Или в стоку или в массив символов. Кстати строка в принципе и есть массив символов. |
24.01.2008, 00:32 | #23 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
И еще убери это
Writeln('Press <Enter> to exit'); Вполне хватит Readln; |
24.01.2008, 00:38 | #25 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Не if v in, if v[i] in. Строка не может быть символом, а ее элементы символы.
|
24.01.2008, 00:42 | #26 |
Форумчанин Подтвердите свой е-майл
Регистрация: 21.01.2007
Сообщений: 193
|
теперь вообще подсчитывает количество слов = 0, хотя их три
----------------------------------------------------------------------- спасибо разобрался Последний раз редактировалось Vasya; 24.01.2008 в 00:53. |
24.01.2008, 00:54 | #27 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Попробуй еще так, если не получится то я только завтра, вернее сегодня полностью посмотрю, а то у меня три часа ночи, засыпаю, извини, что не смог помочь.
Код:
|
24.01.2008, 01:15 | #29 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Еще подумал, можетбыть следующее:
1. У тебя в pos(' ',v) точно по два пробела стоят? 2. В конце текста должен стоять разделитель, обычно точка, иначе последнее слово не подсчитает. 3. Если первые два пункта верно, то попробуй написать так: Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с текстовым файлом | GazimagomedovM | Помощь студентам | 12 | 17.07.2008 18:24 |
Работа с текстовым файлом (delphi). Помогите доделать программу. | Snord | Помощь студентам | 1 | 14.12.2007 14:10 |
Работа с текстовым файлом | nataly_ukr | БД в Delphi | 23 | 07.12.2007 22:13 |
Работа с текстовым файлом! | Edimus | Общие вопросы C/C++ | 10 | 19.11.2007 10:31 |
Модуль, работа с текстовым файлом | Soul | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.05.2007 20:30 |