Разложить число на цифры в отчете Fastreport

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

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

Приветствую, подскажите такой момент, есть программа со встроенным генератором отчетов FastReport 4,6 как разложить итоговое число 25 получаемое в ячейке из переменной такого вида [Количество], нужно, чтобы было от 1 до 25 через запятую вида 1,2,3,4,5... и.тд 22,23,24,25
как это описать как это описать на вкладке для кода
благодарен любой подсказке, спасибо

@krapotkin · 09.07.2019, 08:40

в данном случае совершенно так же как в основном коде

Delphi
1
2
3
4
5
6
m:='';
for i:=1 to n do
begin
  m:=m+inttostr(i)+',';
end;
m:=copy(m,1,length(m)-1);

@Memo17 · 10.07.2019, 02:49 **[ТС]**

спасибо, но возможно, что то делаю не так, выдает ошибку :
"Не могу преобразовать вариант типа (Null) в тип (Integer)"

@krapotkin · 10.07.2019, 23:18

осталось только узнать по какому поводу он это говорит
комментируем код пока не пропадет
пропало - значит нашли

@Memo17 · 11.07.2019, 02:03 **[ТС]**

похоже, что в этой строке

Сообщение от krapotkin

for i:=1 to n do

@D1973 · 11.07.2019, 04:14

переменная i у Вас как объявлена, какого типа?

@Memo17 · 15.07.2019, 12:51 **[ТС]**

Сообщение от D1973

переменная i у Вас как объявлена, какого типа?

честно говоря не знаю, у меня есть Memo5 с переменной [Количество]
через OnBeforePrint добавляю этот код:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure Memo5OnBeforePrint(Sender: TfrxComponent);
begin
m:='';
for i:=1 to n do
begin
  m:=m+inttostr(i)+',';
end;
m:=copy(m,1,length(m)-1);
end
end;

но выходит ошибка "Не могу преобразовать вариант типа (Null) в тип (Integer)"

@krapotkin · 15.07.2019, 12:54

I непонятно что, N непонятно что
все вместе тоже даст непонятно что

@Memo17 · 15.07.2019, 12:59 **[ТС]**

Сообщение от krapotkin

I непонятно что, N непонятно что
все вместе тоже даст непонятно что

)))) я не очень то разбираюсь, что то предложили, я попробовал

@krapotkin · 15.07.2019, 14:11

Точно. Это ж hogwarts.com. Можно не разбираться.
N же само угадает, сколько вам надо чисел в строке иметь, само слазит

Сообщение от Memo17

в ячейке из переменной такого вида [Количество]

и само получит

Сообщение от Memo17

итоговое число 25

Вы когда вопрос пишете, да еще и говорите, что у вас там переменные и все дела, люди ж предполагают, что вы как минимум, знаете, как туда / оттуда данные взять.

@Memo17 · 15.07.2019, 14:58 **[ТС]**

к сожалению, не чего не понял из вашего комментария, к чему ссылки эти ? я перед тем как писать читал справку программы там это называют переменной [Количество] )))

@Пытливый · 15.07.2019, 15:16

Как-то вообще не стыкуется ваш вопрос и отсутствие базовых знаний Delphi. Ну допустим у вас амнезия случилась, напоминаю:
Для цикла нужны 2 переменных, счетчик цикла и максимальное значение до которого цикл будет считать. В дельфи принято объявлять переменную для счетчика в начале процедуры, где он используется. И применительно к вашему примеру:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure Memo5OnBeforePrint(Sender: TfrxComponent);
var i: Integer;
begin
m:='';
n := StrToInt(Edit1.Text); //Предположим, что на форме есть Edit в который вводится ограничение цикла
for i:=1 to n do
begin
  m:=m+inttostr(i)+',';
end;
m:=copy(m,1,length(m)-1);
end;

@Memo17 · 15.07.2019, 15:42 **[ТС]**

у меня нет даже базовых знаний Delphi, у меня есть программа "Бизнес пак" со встроенным редактором fastreport 4,6 )) справку редактора сложно назвать базовыми знаниями Delphi ))), и есть документ у которого есть Memo5 в нем стоит [Количество], когда я вывожу документ на печать в этом поле появляется количество например 25, а мне надо от 1 до 25 через запятую, т.е не одним числом, в редакторе вкладке код можно как то это сделать?

@krapotkin · 15.07.2019, 16:07

хорошо, что вы к 13-му посту сдались и под пытками начинаете потихоньку выдавать секреты, что вам было нужно в изначально.
предположу, что как-то так...

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure Memo5OnBeforePrint(Sender: TfrxComponent);
var i,n: Integer;
  m:string;
begin
  m:='';
  n := StrToInt(<Количество>);
  for i:=1 to n do
    m:=m+inttostr(i)+',';
  m:=copy(m,1,length(m)-1);
  memo5.memo.text := m;
end;

а из самого memo5 [Количество] лучше убрать

Добавлено через 4 минуты
кстати "разложить число на цифры" к тому что вы описали, вообще никакого отношения не имеет

@Memo17 · 15.07.2019, 18:28 **[ТС]**

четко спасибо, уже почти работает, документ открывается и есть количество через запятую, считает правильно, но когда я создаю например три позиции и две из них имеют одинаковые названия то они не суммируется, например
№1 - Стул -3шт, на печать выходит стул -1,2,3 (Как и надо)
№2 - Кресло -2 штуки На печать выводит Кресло - 1,2 (Как и надо)
№3 - Стул -3шт, надо чтобы позиция №3 прибавилась к первой потому, что они одинаковые.
когда просто [Количество] позиции с одинаковыми названиями суммируются получается 6 и 2
ох не знаю, получилось ли объяснить)))

@Пытливый · 15.07.2019, 18:40

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

@Memo17 · 15.07.2019, 18:49 **[ТС]**

Данные группируются, в документе есть Memo поля [номер счета], [Название], [Количество] и [Ед.Изм.]

@Пытливый · 15.07.2019, 19:23

Если у вас Название это Стул или Кресло, то тогда группировка по этому полю у вас отсутствует. Если бы группировались по Названию, то не возникло бы две одинаковых строки Стул.

@D1973 · 15.07.2019, 19:26

Сообщение от Memo17

в документе есть Memo поля [номер счета], [Название], [Количество] и [Ед.Изм.]

Может быть я чего-то не догоняю, но на кой ляд таким вот полям делать тип Memo??? Что, "количество" может быть многострочным текстом??? Вообще-то во всех нормальных базах "количество" - целочисленный тип (ну, на крайний случай, действительный) - но числовой!!!

@Memo17 · 15.07.2019, 19:36 **[ТС]**

все верно, третья позиция если название одинаковое не появляется и не суммируется,
т.е стул так и есть 1,2,3, а не так 1,2,3,4,5,6, если не использовать код, а просто в мемо вставить [Количество] то тогда суммируется и получается №1- Стул 6 шт. №2- Кресло 2 шт.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

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

	Разложить число на цифры в отчете Fastreport 09.07.2019, 01:04. Показов 3056. Ответов 27 Метки fastreport (Все метки) Приветствую, подскажите такой момент, есть программа со встроенным генератором отчетов FastReport 4,6 как разложить итоговое число 25 получаемое в ячейке из переменной такого вида [Количество], нужно, чтобы было от 1 до 25 через запятую вида 1,2,3,4,5... и.тд 22,23,24,25 как это описать как это описать на вкладке для кода благодарен любой подсказке, спасибо 0

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23
	10.07.2019, 02:49 [ТС]
	спасибо, но возможно, что то делаю не так, выдает ошибку : "Не могу преобразовать вариант типа (Null) в тип (Integer)" 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	10.07.2019, 23:18
	осталось только узнать по какому поводу он это говорит комментируем код пока не пропадет пропало - значит нашли 0

@D1973 Модератор 9923 / 6459 / 2457 Регистрация: 21.01.2014 Сообщений: 27,409 Записей в блоге: 3
	11.07.2019, 04:14
	переменная i у Вас как объявлена, какого типа? 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	15.07.2019, 12:54
	I непонятно что, N непонятно что все вместе тоже даст непонятно что 0

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23
	15.07.2019, 14:58 [ТС]
	к сожалению, не чего не понял из вашего комментария, к чему ссылки эти ? я перед тем как писать читал справку программы там это называют переменной [Количество] ))) 0

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23
	15.07.2019, 15:42 [ТС]
	у меня нет даже базовых знаний Delphi, у меня есть программа "Бизнес пак" со встроенным редактором fastreport 4,6 )) справку редактора сложно назвать базовыми знаниями Delphi ))), и есть документ у которого есть Memo5 в нем стоит [Количество], когда я вывожу документ на печать в этом поле появляется количество например 25, а мне надо от 1 до 25 через запятую, т.е не одним числом, в редакторе вкладке код можно как то это сделать? 0

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23
	15.07.2019, 18:28 [ТС]
	четко спасибо, уже почти работает, документ открывается и есть количество через запятую, считает правильно, но когда я создаю например три позиции и две из них имеют одинаковые названия то они не суммируется, например №1 - Стул -3шт, на печать выходит стул -1,2,3 (Как и надо) №2 - Кресло -2 штуки На печать выводит Кресло - 1,2 (Как и надо) №3 - Стул -3шт, надо чтобы позиция №3 прибавилась к первой потому, что они одинаковые. когда просто [Количество] позиции с одинаковыми названиями суммируются получается 6 и 2 ох не знаю, получилось ли объяснить))) 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	15.07.2019, 18:40
	Тут вам группировку данных для отчета сначала надо сделать, но структуры вашей базы вы пока не показали. 0

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23
	15.07.2019, 18:49 [ТС]
	Данные группируются, в документе есть Memo поля [номер счета], [Название], [Количество] и [Ед.Изм.] 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	15.07.2019, 19:23
	Если у вас Название это Стул или Кресло, то тогда группировка по этому полю у вас отсутствует. Если бы группировались по Названию, то не возникло бы две одинаковых строки Стул. 0

@Memo17 0 / 0 / 0 Регистрация: 09.07.2019 Сообщений: 23
	15.07.2019, 19:36 [ТС]
	все верно, третья позиция если название одинаковое не появляется и не суммируется, т.е стул так и есть 1,2,3, а не так 1,2,3,4,5,6, если не использовать код, а просто в мемо вставить [Количество] то тогда суммируется и получается №1- Стул 6 шт. №2- Кресло 2 шт. 0

Разложить число на цифры в отчете Fastreport

Решение