Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > чтение текстового файла

Автор: supervladislav 19.12.2006, 02:30

Код


program chisla;
uses crt;
type
stroky=record
vvedite:string[200];
end;
var
f as:record;
filetext:text;
procedure open(filetext:text;);
begin
readln(filetext);
assign(f,'c:\temp\file.txt');
reset(f);
while not eof (f) do
with f do
begin
read(f,filetext);
close(f);
writeln(filetext);
end;


end.

и уще подскажите пожалуйста как лучше организовать следущее
существует текстовый файл ,нужно каждую его строку измерить и записать в другой файл кол-во символов каждой строки.

Автор: Zero 19.12.2006, 10:28

Цитата(supervladislav @ 19.12.2006, 02:30

)

length(s) ─ функция возвращает размер строки.

Ещё что-то непонятно???

Автор: supervladislav 24.12.2006, 01:00

неопнятно зачем вопервых оператор with я несовсем понимаю
и как текстовый файл разбить построчно

Автор: skyboy 24.12.2006, 01:20

supervladislav, with там набок не нужен. это раз.
при помощи readln текстовый читается построчно. Это два.
то есть, при каждом чтении при помощи readln в переменную заносится очередная строка из файла. причем, если переменная не позволяет полностью уместить в себе строку(например, имеет тип string[1]), то остаток строки будет просто проигнорирован - при следующем чтении будет обработана новая строка.