HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

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

Репутация: -4
По умолчанию Количество строк в файле

Всем привет!
Подскажите как решить такую проблему:

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

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

Репутация: 69
По умолчанию

а какой тип файла?
 
Ответить с цитированием

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

Репутация: -4
По умолчанию

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

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

Репутация: 69
По умолчанию

а если так?

Код:
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
С нами: 9096406

Репутация: 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
С нами: 9365528

Репутация: 425
По умолчанию

Если на Delphi, то RedFern.89

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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Imtale KPOT_f!nd Skype, IRC, ICQ, Jabber и другие IM 356 31.08.2012 22:01
Количество строчек в файле OPF_Nik С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 13 11.01.2010 20:28



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


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




ANTICHAT ™ © 2001- Antichat Kft.

×

Создать сделку

Продавец: ник или ID

Название сделки:

Сумма USDT:

Срок сделки, дней:

Кто платит комиссию:

Условия сделки:

После создания сделки средства будут зарезервированы в холде до завершения сделки.

×

Мои сделки

Загрузка...
×

Сделка


Загрузка чата...
×

ESCROW ADMIN PANEL

Загрузка...
Загрузка...