Форум АНТИЧАТ - Количество строк в файле

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Количество строк в файле (https://forum.antichat.xyz/showthread.php?t=173570)

marcos

25.01.2010 13:22

Количество строк в файле

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

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

RedFern.89

25.01.2010 13:24

а какой тип файла?

marcos

25.01.2010 13:44

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

RedFern.89

25.01.2010 13:50

а если так?

Код:



var Strings: TStringList;



...



Strings := TStringList.Create;

Strings.LoadFromFile('c:\vdebug.txt');

ShowMessage(IntToStr(Strings.Count));

flacs

25.01.2010 23:40

Цитата:

Я объявил переменную типа 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;

AlexTheC0d3r

25.01.2010 23:46

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

если на pascal то flacs

Время: 17:25