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