DELPHI TEXTFILE КОЛИЧЕСТВО СТРОК

Delphi имеет встроенную функцию работы с текстовыми файлами - TextFile. С её помощью можно легко редактировать и просматривать содержимое текстовых файлов.

Чтобы узнать количество строк в файле, можно воспользоваться следующим кодом:

var MyTextFile: TextFile; LineCount: integer; S: string; begin LineCount := 0; AssignFile(MyTextFile, 'myfile.txt'); reset(MyTextFile); while not Eof(MyTextFile) do begin readln(MyTextFile, S); Inc(LineCount); end; CloseFile(MyTextFile); writeln(LineCount);end;

В приведенном выше коде мы объявляем переменную 'MyTextFile' типа TextFile и переменную 'LineCount', которая будет хранить количество строк в файле.

Далее мы связываем объект 'MyTextFile' с именем файла 'myfile.txt' с помощью функции 'AssignFile' и открываем текстовый файл с помощью функции 'reset'.

Затем мы начинаем читать строки из файла с помощью функции 'readln' до тех пор, пока не достигнем конца файла 'Eof'. При каждом чтении строки мы инкрементируем переменную 'LineCount', чтобы получить общее количество строк в файле.

Наконец, мы закрываем файл с помощью функции 'CloseFile' и выводим количество строк в файле на экран.

Reading from a text file (Part 1) - Delphi Tutorial (Part 33)

Создание теста на Delphi кратко и по теме

Delphi - Readln Textfile

Text Files in Delphi - Formatting into columns

Writing to a text file - Delphi Tutorial (Part 36)

Delphi - Сохранение данных в текстовый файл и компонент SaveDialog

Программирование в Delphi Урок 3 2 Работа с текстом, строковые функции Length, Pos и другие

Delphi - Загрузка данных из текстового файла и компонент OpenDialog