Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Синтаксис
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 08.12.2012, 11:42
Anzor1313 Anzor1313 вне форума
Прохожий
 
Регистрация: 08.12.2012
Сообщения: 1
Репутация: 10
Восклицание Подсчет кол-во страниц, отправляемых на печать

Доброго времени суток!
Столкнулся с проблемой. Необходимо подсчитать количество выбранных на печать страниц. Т.е. допустим вбил в Edit номера страниц числа "1-5, 6, 9-10", 1-5 это значить с 1 до 5 т.е. 6 страниц, затем 6 это одна страница, и 9-10 2 страницы и того 9 страниц. Ввод будет разного характера "6,8,4,9" может и так, может и "6,7,10-78". Помогите пожалуйста создать алгоритм, либо у кого есть готовые наработки скиньте пожалуйста!
Ответить с цитированием
  #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.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:38.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter