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

Ответ от Jurijus Zaksas[гуру]
На каком языке, чудилка? Лови на Дельфи:
uses Classes;
...
function LineCount(FileName:string):integer;
begin
with TStringList.Create do
try
LoadFromFile(FileName);
Result:=Count;
finally
Free;
end;
end;

Ответ от Александр[гуру]
Assign( f, FileName );
Reset( f );
Coun t := 0;
While not Eof(f) do
begin
ReadLn( f, s );
Inc(Count);
end;
CloseFile( f );
WriteLn(Count);

Ответ от Алексей Вишняков[гуру]
для этого можно осуществить два варианта:
1) посимвольно считывать файл и считать сколько раз встретится символ конца строки "
" до тех пор, пока не будет достигнут конец файла "EOF"
2) построчное чтение файла, пока не встретится его конец и счетчик считываний.

Ответ от Ira Harlamova[гуру]
Подсчёт строк онлайн

Ответ от 3 ответа[гуру]