Получить размер элемента между Мин - Макс значением

@Memo17 · Регистрация: 09.07.2019

Студворк — интернет-сервис помощи студентам

Приветствую, нужна ваша помощь, есть программа со встроенным редактором Fastreport 4.6, уже есть готовый шаблон документа в нем есть Memo с переменной [Длина элемента], требуется в этом Memo вывести значения в зависимости от мин и макс длины элемента, например
мин. 1000 - макс. 1050 размер элемента 750
мин. 1051 - макс. 1100 размер элемента 800
мин. 1101 - макс. 1150 размер элемента 850 и так далее.
буду благодарен за любой, дельный совет ;0)

@krapotkin · 08.08.2019, 22:40

ну, первое, что приходит в голову обычно
а переменная-то откуда берется???
самое логичное - заполняйте ее в коде перед выводом отчета

то же самое вы можете делать и в скрипте
по событию вашего мемо onBeforePrint на простом паскале вычисляйте

я очень сомневаюсь, что вы правильно написали нужное вам условие, но по вашему описанию это примерно так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure .....memo21BeforePrint....
var vMin, vMax,v:integer;
begin
  vMin :=?????; // мин длина без понятия откуда вы ее берете
  vMax := /// то же про макс
  if (vMin=1000) and (vMax=1050) then
    v:=750
  else if (vMin=1051) and (vMax=1100) then
    v:=.....
 
  Set('Длина элемента', v);
end;

@Memo17 · 08.08.2019, 23:28 **[ТС]**

спасибо, да как сказать от куда берется из настроек программы, просто решил попробовать обойти немного настройку, сразу так и не объяснить конечно, но смысл в том чтобы шагом 50мм отнималось от длины элемента в мин-макс диапазоне т.е длина элемента из настроек программы 1000 если я ее увеличу до 1020 мне надо что бы она не менялась, а так и оставалась 1000, а если я ее увеличу до 1051 и макс 1100 что бы размер был 1050, вот и получается
от 1201 до 1250 размер =1200
от 1251 до 1300 размер = 1250
от 1301 до 1350 размер =1300 и т.д
как то так))) запутанно конечно

@krapotkin · 09.08.2019, 08:50

ну, пример я показал, данные подставляйте, какие вам нужны

если вам просто нужно приводить к ближайшему кратному 50, просто разделите нацело на 50 потом умножьте
например
(1305 div 50) * 50 = 1300

@Memo17 · 09.08.2019, 11:58 **[ТС]**

попробую хорошо бы получилось))), а нет возможности записать, типа
если [Элемент.размер] Min 1000 и Max 1100 тогда memo.Text := '1050'
мне бы было проще прописать так 50 размеров этого бы хватило

@krapotkin · 09.08.2019, 13:01

вы не читаете вообще?? а что тогда написано в #2???

кроме того меня не покидает ощущение, что вам неизвестно слово "между"
причем тут мин и макс?

если значение не меньше X и не больше Y то

Delphi
1
2
3
if (v>=1000) and (v<=1050) then
    v:=1000
Set('переменная', v);

если в мемо у вас [<переменная>] то значение этой переменной и так там появится

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23

	Получить размер элемента между Мин - Макс значением 08.08.2019, 20:45. Показов 1056. Ответов 5 Метки fastreport (Все метки) Приветствую, нужна ваша помощь, есть программа со встроенным редактором Fastreport 4.6, уже есть готовый шаблон документа в нем есть Memo с переменной [Длина элемента], требуется в этом Memo вывести значения в зависимости от мин и макс длины элемента, например мин. 1000 - макс. 1050 размер элемента 750 мин. 1051 - макс. 1100 размер элемента 800 мин. 1101 - макс. 1150 размер элемента 850 и так далее. буду благодарен за любой, дельный совет ;0) 0

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23
	08.08.2019, 23:28 [ТС]
	спасибо, да как сказать от куда берется из настроек программы, просто решил попробовать обойти немного настройку, сразу так и не объяснить конечно, но смысл в том чтобы шагом 50мм отнималось от длины элемента в мин-макс диапазоне т.е длина элемента из настроек программы 1000 если я ее увеличу до 1020 мне надо что бы она не менялась, а так и оставалась 1000, а если я ее увеличу до 1051 и макс 1100 что бы размер был 1050, вот и получается от 1201 до 1250 размер =1200 от 1251 до 1300 размер = 1250 от 1301 до 1350 размер =1300 и т.д как то так))) запутанно конечно 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	09.08.2019, 08:50
	ну, пример я показал, данные подставляйте, какие вам нужны если вам просто нужно приводить к ближайшему кратному 50, просто разделите нацело на 50 потом умножьте например (1305 div 50) * 50 = 1300 0

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23
	09.08.2019, 11:58 [ТС]
	попробую хорошо бы получилось))), а нет возможности записать, типа если [Элемент.размер] Min 1000 и Max 1100 тогда memo.Text := '1050' мне бы было проще прописать так 50 размеров этого бы хватило 0