Печать данных из label + edit в виде таблицы (как в excel)

@mirina313 · Регистрация: 04.11.2013

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

Есть некий код, допустим, для подсчета стоимости бензина:
1 поле: пустые лейблы с названиями вида топлива (к примеру, А95)
2 поле: едиты в которых прописывается кол-во литров
3 поле: лейблы которые умножают кол-во литров на цену одного литра бензина и выводят общую стоимость (200.00р.)
Ну и конечно, лейблы для общего подсчета расходов..
Не знаю как реализовать печать значений 1,2,3 полей и общей суммы на все виды топлива + слева дата и справа подпись в виде таблицы.
То есть название колонки, три колонки в которые заносятся данные и ниже общая стоимость.
Слева Дата - справа подпись
Как создать шаблон конечного вида таблицы и вытащить в нее эти данные + дописать вывод даты и поле подписи?

@D1973 · 22.01.2018, 11:29

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

работает до знака +

Нет, StrToInt применяется к той переменной или выражению, которое находится в скобках и является параметром этой функции; знака + в этих скобках может не быть вообще

@mirina313 · 22.01.2018, 11:30 **[ТС]**

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

@D1973 · 22.01.2018, 11:39

Вы серьезно не понимаете? Давайте разберем...

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

в скобках то два лейбла было

именно. А что такое свойство Text у LabeledEdit? Это, попросту говоря, строка. И применяя знак + применительно к двум строкам, Вы этим самым выполняете операцию конкатенации, т.е. сцепления строк. И только потом, когда Вы несколько строк сцепили в одну, эту самую получившуюся сцепленную строку Вы передаете в качестве параметра в функцию StrToInt. Вы же сами пример приводили:

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

Например, если лейбл1=5 и лейбл2=7, такая функция не суммурует два числа, а записывает их по очередности.
Выходит не 12, а 57

'5' + '7' -> '57' (строку '5' сцепили со строкой '7' -> получили строку '57')
и потом функция StrToInt старательно преобразовала сцепленную строку в число. Она (функция, то бишь) все правильно сделала, то, что ей указали, она молодец!

@mirina313 · 22.01.2018, 11:41 **[ТС]**

Спасибо, довольно доходчиво

@qwertehok · 22.01.2018, 11:44

потому что Label.Caption это текст
то есть '2'+'5'='25'
что бы сложить нужно сначала преобразовать в число каждый Label.Caption, потом сложить, а потом уже Integer преобразовать обратно в текст

@mirina313 · 22.01.2018, 11:49 **[ТС]**

Да, это все понятно..
Просто, почему то казалось что каждый лейбл в скобках сперва преобразуется в число и лишь потом суммируется, а выходит, что принцип другой: выражение -> преобразование

@qwertehok · 22.01.2018, 11:55

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

а выходит, что принцип другой: выражение -> преобразование

есть переменные, у них есть типы данных и есть операции с типами данных

Если у TLabel свойство Caption имеет тип string, то его нельзя складывать без преобразования

@Matan! · 22.01.2018, 12:31

Не по теме:

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

Если у TLabel свойство Caption имеет тип string, то его нельзя складывать без преобразования

Складывать-то можно, если понимаешь,что делаешь. А вот арифметически складывать строки нельзя, да:)

@Massaraksh7 · 22.01.2018, 12:54

z:=StrToInt(LabeledEdit1.Text+LabeledEdi t2.Text);
'5'+'7'=>'57'=>StrToInt('57')=>57

z:=StrToInt(LabeledEdit1.Text)+StrToInt( LabeledEdit2.Text);
'5'=>StrToInt('5')=>5
'7'=>StrToInt('7')=>7
5+7=12

@mirina313 · 22.01.2018, 15:36 **[ТС]**

Все получилось, на форме quickrep два поля: page header и tittle band, без полей текст не будет печататься.
Соответственно заветный код кнопки для печати:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure TForm1.BitBtn1Click(Sender: TObject);
var
z,z1:integer;
begin
Form2.QRLabel13.Caption:=LabeledEdit1.Text;
Form2.QRLabel14.Caption:=Label1.Caption;
Form2.QRLabel16.Caption:=LabeledEdit2.Text;
Form2.QRLabel17.Caption:=Label2.Caption;
Form2.QRLabel19.Caption:=LabeledEdit3.Text;
Form2.QRLabel20.Caption:=Label3.Caption;
Form2.QRLabel22.Caption:=LabeledEdit4.Text;
Form2.QRLabel23.Caption:=Label4.Caption;
Form2.QRLabel25.Caption:=LabeledEdit5.Text;
Form2.QRLabel26.Caption:=Label5.Caption;
Form2.QRLabel28.Caption:=LabeledEdit6.Text;
Form2.QRLabel29.Caption:=Label6.Caption;
Form2.QRLabel31.Caption:=LabeledEdit7.Text;
Form2.QRLabel32.Caption:=Label7.Caption;
Form2.QRLabel34.Caption:=LabeledEdit8.Text;
Form2.QRLabel35.Caption:=Label8.Caption;
Form2.QRLabel37.Caption:=LabeledEdit9.Text;
Form2.QRLabel38.Caption:=Label9.Caption;
Form2.QRLabel40.Caption:=LabeledEdit10.Text;
Form2.QRLabel41.Caption:=Label10.Caption;
Form2.QRLabel43.Caption:=LabeledEdit11.Text;
Form2.QRLabel44.Caption:=Label11.Caption;
Form2.QRLabel46.Caption:=LabeledEdit12.Text;
Form2.QRLabel47.Caption:=Label12.Caption;
Form2.QRLabel49.Caption:=LabeledEdit13.Text;
Form2.QRLabel50.Caption:=Label13.Caption;
Form2.QRLabel52.Caption:=LabeledEdit14.Text;
Form2.QRLabel53.Caption:=Label14.Caption;
Form2.QRLabel55.Caption:=LabeledEdit15.Text;
Form2.QRLabel56.Caption:=Label15.Caption;
Form2.QRLabel58.Caption:=LabeledEdit16.Text;
Form2.QRLabel59.Caption:=Label16.Caption;
 z:=StrToInt(LabeledEdit1.Text)+StrToInt(LabeledEdit2.Text)
 +StrToInt(LabeledEdit3.Text)+StrToInt(LabeledEdit4.Text)
 +StrToInt(LabeledEdit5.Text)+StrToInt(LabeledEdit6.Text)
 +StrToInt(LabeledEdit7.Text)+StrToInt(LabeledEdit8.Text);
 +z1:=StrToInt(LabeledEdit9.Text)+StrToInt(LabeledEdit10.Text)
 +StrToInt(LabeledEdit11.Text)+StrToInt(LabeledEdit12.Text)
 +StrToInt(LabeledEdit13.Text)+StrToInt(LabeledEdit14.Text)
 +StrToInt(LabeledEdit15.Text)+StrToInt(LabeledEdit16.Text);
Form2.QRLabel7.Caption:=IntToStr(z);
Form2.QRLabel8.Caption:=IntToStr(z1);
Form2.QRLabel9.Caption:=Label17.Caption;
Form2.QRLabel10.Caption:=Label18.Caption;
Form2.QRLabel11.Caption:=Label19.Caption;
Form2.QuickRep1.Print;
end;

Уря!!)

Добавлено через 22 минуты
А, ну и саму таблицу помог нарисовать компонент QRShape

Добавлено через 1 час 3 минуты
Появилась еще одна бяка, она ,конечно, никак не мешает работе, но хотелось бы разобраться почему..
Произошла бяка после создания второй формы и связывания двух модулей форм, она при выходе из делфи7 выдает ошибку "A component named_Item already exists."
Кто нибудь посоветует куда копать?

@qwertehok · 22.01.2018, 15:44

ты Name у компонентов меняла? где то они одинаково называются
типа Edit1 на Form1 и Edit1 на Form2

@mirina313 · 22.01.2018, 16:31 **[ТС]**

Нет, скорее всего вы правы)

Добавлено через 2 минуты
Но такого быть не может, ибо на второй форме лишь QR и все компоненты связанные с ним, то есть нет похожих.
В менеджере проектор ругается именно на project1.exe ( когда кликаешь правой)

@qwertehok · 22.01.2018, 16:38

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

@Matan! · 22.01.2018, 17:26

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

В менеджере проектор ругается

В каком менеджере и какой проектор?
Как вариант, можешь удалить exe- и dcu-файлы и пересобрать проект.

@mirina313 · 23.01.2018, 10:03 **[ТС]**

Этот способ мне помог, спасибо

@mirina313 · 23.01.2018, 10:33 **[ТС]**

Здравствуйте, подскажите пожалуйста, как отделить первую цифру пробелом чтобы вышло так:

@mirina313 · 23.01.2018, 10:34 **[ТС]**

Что нужно добавить сюда чтобы так происходило?

Delphi
1
Label1.Caption:=FormatFloat('0.00',a1)+'р.';

@krapotkin · 23.01.2018, 10:43

может, все-таки заглянуть в документацию, или не барское дело?

@Lirrk · 23.01.2018, 13:13

Я вообще за канвас.

@mirina313 · 23.01.2018, 13:47 **[ТС]**

С отчетом давно разобрались, не пойму как сделать пробел...

Добавлено через 14 минут
Всем Спасибо, тысячи включает символ

Delphi
1
,

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67

	Печать данных из label + edit в виде таблицы (как в excel) 17.01.2018, 10:29. Показов 6484. Ответов 60 Метки нет (Все метки) Есть некий код, допустим, для подсчета стоимости бензина: 1 поле: пустые лейблы с названиями вида топлива (к примеру, А95) 2 поле: едиты в которых прописывается кол-во литров 3 поле: лейблы которые умножают кол-во литров на цену одного литра бензина и выводят общую стоимость (200.00р.) Ну и конечно, лейблы для общего подсчета расходов.. Не знаю как реализовать печать значений 1,2,3 полей и общей суммы на все виды топлива + слева дата и справа подпись в виде таблицы. То есть название колонки, три колонки в которые заносятся данные и ниже общая стоимость. Слева Дата - справа подпись Как создать шаблон конечного вида таблицы и вытащить в нее эти данные + дописать вывод даты и поле подписи? 0

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	22.01.2018, 11:30 [ТС]
	Так, почему тогда мое выражение не работало? в скобках то два лейбла было 0

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	22.01.2018, 11:41 [ТС]
	Спасибо, довольно доходчиво 0

@qwertehok 6004 / 4579 / 1096 Регистрация: 29.08.2013 Сообщений: 28,281 Записей в блоге: 3
	22.01.2018, 11:44
	потому что Label.Caption это текст то есть '2'+'5'='25' что бы сложить нужно сначала преобразовать в число каждый Label.Caption, потом сложить, а потом уже Integer преобразовать обратно в текст 0

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	22.01.2018, 11:49 [ТС]
	Да, это все понятно.. Просто, почему то казалось что каждый лейбл в скобках сперва преобразуется в число и лишь потом суммируется, а выходит, что принцип другой: выражение -> преобразование 0

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,750 Записей в блоге: 7
	22.01.2018, 12:54
	z:=StrToInt(LabeledEdit1.Text+LabeledEdi t2.Text); '5'+'7'=>'57'=>StrToInt('57')=>57 z:=StrToInt(LabeledEdit1.Text)+StrToInt( LabeledEdit2.Text); '5'=>StrToInt('5')=>5 '7'=>StrToInt('7')=>7 5+7=12 1

@qwertehok 6004 / 4579 / 1096 Регистрация: 29.08.2013 Сообщений: 28,281 Записей в блоге: 3
	22.01.2018, 15:44
	ты Name у компонентов меняла? где то они одинаково называются типа Edit1 на Form1 и Edit1 на Form2 1

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	22.01.2018, 16:31 [ТС]
	Нет, скорее всего вы правы) Добавлено через 2 минуты Но такого быть не может, ибо на второй форме лишь QR и все компоненты связанные с ним, то есть нет похожих. В менеджере проектор ругается именно на project1.exe ( когда кликаешь правой) 0

@qwertehok 6004 / 4579 / 1096 Регистрация: 29.08.2013 Сообщений: 28,281 Записей в блоге: 3
	22.01.2018, 16:38
	ну телепатов тут нет, или ищи сама или выкладывай проект 1

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	23.01.2018, 10:03 [ТС]
	Этот способ мне помог, спасибо 0

@mirina313 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 67
	23.01.2018, 10:33 [ТС]
	Здравствуйте, подскажите пожалуйста, как отделить первую цифру пробелом чтобы вышло так: Изображения 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	23.01.2018, 10:43
	может, все-таки заглянуть в документацию, или не барское дело? 0

@Lirrk Заблокирован
	23.01.2018, 13:13
	Я вообще за канвас. 0