Delphi - Корректировка текстовго файла

Delphi - Корректировка текстовго файла

Hardip

Новый участник

Сообщения: 29
Благодарности: 0

У меня вот такой вопрос. У меня есть текстовый файл. Мне нужно в конец каждой строки файла записать количество слов в данной строке. Я сделал, что программа разбирает на строки файл,

Код:

uses
  SysUtils;

var
 n: byte;
 S: string;
 i:integer;
  f:text;
begin
i:=1;
 assign(f,'text');
 reset(f);
 while not(eof(f)) do begin
  readln(f,s);
  i:=i+1;
 end;
n:=1;
for i:=1 to length(s) do
 if s[i]=' ' then inc(n);
writeln('Slov:', n);
end.

но выдает в итоге длину последней строки.

Код:

for i:=1 to length(s) do
if s[i]=' ' then inc(n);
writeln('Slov:', n);

А нужно каждой.. И ещё не знаю, как сделать, чтобы он это значение в конец этой-же строки в файл записывал. Заранее благодарю!

Отправлено: 22:55, 28-11-2010

Любезный

Старожил

Сообщения: 295
Благодарности: 30

Профиль | Отправить PM | Цитировать

Всё правильно - он выдаёт число слов в последней строке, ибо ты подсчитываешь слова в переменной s после того, как ты прочитал в неё последнюю строку.

Кроме того, не следует одновременно открывать один файл для чтения и для записи. Создай новый файл и пиши в него заново сформированные строки.

Это сообщение посчитали полезным следующие участники:

Drongo

Отправлено: 20:46, 29-11-2010 | #2