forum.boolean.name - Кол-во строк в ресурсном файле

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Кол-во строк в ресурсном файле (http://forum.boolean.name/showthread.php?t=4923)

Кол-во строк в ресурсном файле

Достапочтенные форумчане, не гневайтесь ежли что не так.
Мой вопрос очень важен для меня.
Мне надо изнать сколько в ресурсном файле строк.
На сий вопрос прошу дать мне ответ в виде кода функции...
Пробовал разные способы, но все приводили к зависанию мидлета(((
один из вариантов:

Код:

function cmdcount(res:resource):integer;

var i:integer;

s:string;

begin

i:=-1;

if (resourceAvailable(res)) then begin

repeat

i:=i+1;

delay(100);

s:=readline(res);

until s='';

end;

cmdcount:=i;

end;

Re: Кол-во строк в ресурсном файле

псевдокод:

Код:

i=0

while not eof

 readline

 i += 1

wend

print i

пойдет?

Re: Кол-во строк в ресурсном файле

Это уже неоднократно обсуждалось. Посмотри, например, тут:
http://www.boolean.name/showthread.php?t=4525

Re: Кол-во строк в ресурсном файле

Цитата:

Сообщение от dimanche13

псевдокод:

Код:

i=0

while not eof

 readline

 i += 1

wend

print i

пойдет?

Не, не пойдет. Если readline начнет читать пустую строку прога зависнет. Да и нету там eof никакого.