ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Количество строк в файле
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Количество строк в файле
  #1  
Старый 25.01.2010, 13:22
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148

Репутация: -4
По умолчанию Количество строк в файле
Всем привет!
Подскажите как решить такую проблему:

Я объявил переменную типа file;
Подскажите как подсчитать количество строк в файле?
 
Ответить с цитированием

  #2  
Старый 25.01.2010, 13:24
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264

Репутация: 69
Отправить сообщение для RedFern.89 с помощью ICQ
По умолчанию
а какой тип файла?
 
Ответить с цитированием

  #3  
Старый 25.01.2010, 13:44
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148

Репутация: -4
По умолчанию
Файл простой текстовой...
Точнее я хочу чтобы файл был с расширением другим, но редактировать его можно было как текстовой
 
Ответить с цитированием

  #4  
Старый 25.01.2010, 13:50
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264

Репутация: 69
Отправить сообщение для RedFern.89 с помощью ICQ
По умолчанию
а если так?

Код:
var Strings: TStringList;

...

Strings := TStringList.Create;
Strings.LoadFromFile('c:\vdebug.txt');
ShowMessage(IntToStr(Strings.Count));
 
Ответить с цитированием

  #5  
Старый 25.01.2010, 23:40
flacs
Познающий
Регистрация: 28.01.2009
Сообщений: 90
Провел на форуме:
432613

Репутация: 80
По умолчанию
Цитата:
Я объявил переменную типа file;
Ну если файл текстовый то лучше f: text;

Если таким образом то кол-во строк посчитывается мега-тривиально
Цитата:
var
n: dword;
s: string;
begin
n=0;
Assign(f,'path of source');
Reset(f);
while not eof(f) do begin
Readln(s);
inc(n);
end;
CloseFile(f):
end;
 
Ответить с цитированием

  #6  
Старый 25.01.2010, 23:46
AlexTheC0d3r
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135

Репутация: 425
Отправить сообщение для AlexTheC0d3r с помощью ICQ
По умолчанию
Если на Delphi, то RedFern.89

если на pascal то flacs
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Imtale KPOT_f!nd ICQ 249 17.05.2010 22:12
Количество строчек в файле OPF_Nik С/С++, C#, Delphi, .NET, Asm 13 11.01.2010 20:28
Раскрутка сайта heks Статьи 15 15.02.2009 19:51
Закон Sinay Авторские статьи 15 01.02.2009 22:55



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ