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

[marcos]

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

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

[RedFern.89]

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

[marcos]

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

[RedFern.89]

а если так?



var Strings: TStringList;

...

Strings := TStringList.Create;
Strings.LoadFromFile('c:\vdebug.txt');
ShowMessage(IntToStr(Strings.Count));

[flacs]

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

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

если на pascal то flacs