Function TextSize(Name:String):integer;
var F:text; i:integer;
begin
try // начало защищённого блока
assign(F,Name);
reset(F); //считываем файл
i:=0;
while not EOF(F) //пока файл не кончился
do begin readln(F); i:=i+1; end; // считаем строки
close(F);
except i:=-1; end; //в случае ошибки (если файл не найден)
TextSize:=i;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.