25.01.2010, 23:40
|
|
Познающий
Регистрация: 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;
|
|
|