Автор Ўрий Байтемиров задал вопрос в разделе Другие языки и технологии
написать программу и подсчитать количество строк в текстовом файле! Делфи!! и получил лучший ответ
Ответ от Veon[гуру]
1) Считать строки в массив и посчитать кол-во элементов.
2) При построчном считывании поставить счетчик строк
Ответ от Александр Ильин[гуру]
{$apptype console}
uses Windows, SysUtils, Classes;
var
s: String;
begin
Write('Имя файла: '); ReadLn(s);
if not FileExists(s) then begin
WriteLn('Файл не существует! ');
Exit;
end;
with TStringList.Create do
try
LoadFromFile(s);
WriteLn('Число строк в файле ', s, ' = ', Count);
finally
Free;
end;
end.
{$apptype console}
uses Windows, SysUtils, Classes;
var
s: String;
begin
Write('Имя файла: '); ReadLn(s);
if not FileExists(s) then begin
WriteLn('Файл не существует! ');
Exit;
end;
with TStringList.Create do
try
LoadFromFile(s);
WriteLn('Число строк в файле ', s, ' = ', Count);
finally
Free;
end;
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: написать программу и подсчитать количество строк в текстовом файле! Делфи!!
Чем опасен вирус win32:neshta?
Вредоносная программа, которая находит и заражает исполняемые файлы. Программа является приложением
подробнее...
что делает виру нешта ?
Neshta.a
Технические детали
Вредоносная программа, которая находит и заражает
подробнее...
Как изменит системную переменную Path с помощью delphi?
Для этого используется API функция GetEnvironmentVariable.
GetEnvironmentVariable
подробнее...
Как закончить программу на delphi? Пишет unexpected end of file
53. Unexpected end of file in comment started on line <n>. Неожиданный конец файла при
подробнее...