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

@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);

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

Новые блоги и статьи Все статьи Все блоги /
YAFU@home — распределённые вычисления для математики. На CPU Programma_Boinc 20.01.2026 YAFU@home — распределённые вычисления для математики. На CPU YAFU@home — это BOINC-проект, который занимается факторизацией больших чисел и исследованием aliquot-последовательностей. Звучит. . .	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

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

	Получить размер элемента между Мин - Макс значением 08.08.2019, 20:45. Показов 1026. Ответов 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 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,657 Записей в блоге: 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