Создать текстовой файл и подсчитать количество символов в нём.

[GN_]

Не охота создавать новую тему, спрошу здесь.
Задача:
Создать текстовой файл и подсчитать количество символов в нём.
На Паскале надо сделать, чё только не пробовал, не получается

[SuperVisor]

Сообщение от GN_

Не охота создавать новую тему, спрошу здесь.
Задача:
Создать текстовой файл и подсчитать количество символов в нём.
На Паскале надо сделать, чё только не пробовал, не получается

"Новый вопрос - новая тема" - правило форума. Создавай тему в разделе Паскаль.

[AVer]

Ну вот так вроде должно работать:

Var F:Text;
     Buf,S:String;
     M:Integer;  //  Кол-во символов
...
begin
Assign(F,'Путь_к_файлу.ххх');
ReWrite(F);
... // Записи в файл.
Close(F);
ReSet(F);
repeat
ReadLn(F,Buf);
S:=S+Buf;
until EoF(F);
M:=Length(S);
end;
...

[GN_]

AVer большое спасибо, работает.

[lowercase]

Сообщение от AVer

ReadLn(F,Buf);
S:=S+Buf;
until EoF(F);

по моему если будет достигнут конец файла цыкл запустится еще раз и програма вылетит... лучше ипользовать цыкл while...:

while not eof(f) do begin
ReadLn(F,Buf);
S:=S+Buf;
end;