Показать сообщение отдельно
  #2  
Старый 08.12.2012, 15:44
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Во-первых, 1-5 это 1, 2, 3, 4 и 5, то есть пять страниц.
А во-вторых, ввод весьма однообразный. Считываем строку до следующей запятой, если внутри есть "-" то делим на две части (до - и после - ), переводим эти подстроки в int и вычитаем из второго числа первое, затем прибавляем 1. Если "-" нету, то тогда просто интерпретируем как одну страницу. Можно искать повторки, если надо (чтоб не было "1-5,2,3").
Реализуется через Pos, PosEx, Copy.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием