Аналитика

Цифровая фотограмметрия, картография и землеустройство
Текущее время: 28 мар 2024 22:31

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 725 ]  На страницу Пред.  1 ... 45, 46, 47, 48, 49
Автор Сообщение
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 08 фев 2022 21:15 
Гуру
Гуру
Аватара пользователя

Зарегистрирован:
22 сен 2007 16:09
Сообщения: 382
Откуда: м.Львiв
ТОВ Аспект писал(а):
Доброго дня. Прошу допомогти розібратися, в файлі XML коли більше одного власника, мемо3 становиться вище,
тоді Мемо1 та 2 підіймаю на Height Memo3, під Мемо1,2,3 є аналогічні мемо4,5,6:ShiftMode=smAlways які в такому випадку зміщується нижче, але одне мемо, мемо4 не зміщується. Підкажіть будь ласко що ще треба зробити.

Доброго дня. Я б робив це за допомогою Блоків (Band), що дозволяє контролювати це "розтягування".


Вложения:
NMLists.fr3 [5.56 Кб]
Скачиваний: 213

_________________
Більшість хороших програмістів виконують свою роботу не тому, що очікують оплати або визнання, а тому, що отримують задоволення від програмування.
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 14 фев 2022 10:49 
Эксперт
Эксперт

Зарегистрирован:
13 дек 2007 18:43
Сообщения: 58
Откуда: м.Полонне
Руслан Пархуць писал(а):
потрiбно визначити змiнну AS а також додати саму нумерацiю ну i StringPart - для отримання першого значення зi стрiчки ЦВ
Код:
AS:='';
AS:=AS+'діл. № '+IntToStr(I) + ' ' + XPath('/Parcels/ParcelInfo['+IntToStr(I)+']/Area') + ' га '+ StringPart(XPath('/Parcels/ParcelInfo['+IntToStr(I)+']/Purpose'),1,' ') + #13#10;


Доброго дня.
Підкажіть будь-ласка, чому формує тільки останню ділянку.
діл. №2 0.2244 га 01.03
Дякую.

Код:
var
I,N: Integer;
AS: String;

begin
N:=NodesCount('./Parcels','ParcelInfo');
I:=0;
if N=1
then begin
ShowMessage('Однієї ділянки не достатньо для поділу, формування звіту зупинено');
Engine.StopReport;
end;
begin
for I:=1 to N do
AS:='';
AS:=AS+'діл. №'+IntToStr(I) + ' ' + XPath('/Parcels/ParcelInfo['+IntToStr(I)+']/Area') + ' га '+ StringPart(XPath('/Parcels/ParcelInfo['+IntToStr(I)+']/Purpose'),1,' ') + #13#10;
end;
end.


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 14 фев 2022 11:41 
Эксперт
Эксперт

Зарегистрирован:
29 окт 2012 12:15
Сообщения: 99
Откуда: Запорізька область, м. Кам'янка-Дніпровська
Приберіть AS:='';


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 14 фев 2022 13:56 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
замість
Код:
for I:=1 to N do
AS:='';
AS:=AS+'діл. №'+IntToStr(I) + ' ' + XPath('/Parcels/ParcelInfo['+IntToStr(I)+']/Area') + ' га '+ StringPart(XPath('/Parcels/ParcelInfo['+IntToStr(I)+']/Purpose'),1,' ') + #13#10;


зробіть
Код:
AS:='';
for I:=1 to N do
AS:=AS+'діл. №'+IntToStr(I) + ' ' + XPath('/Parcels/ParcelInfo['+IntToStr(I)+']/Area') + ' га '+ StringPart(XPath('/Parcels/ParcelInfo['+IntToStr(I)+']/Purpose'),1,' ') + #13#10;

_________________
Команда разработчиков Digitals
(наш e-mail и ICQ находятся в меню Помощь|О программе)
Новичкам сюда | Новые возможности программы | Купить Digitals


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: Формирорвание отчета в Reports
СообщениеДобавлено: 06 фев 2024 07:33 
Гуру
Гуру

Зарегистрирован:
27 июл 2011 08:37
Сообщения: 172
Откуда: м.Рівне
Доброго дня. Виникло таке питання.
В пояснювальній записці потрібно присвоїти значення перемінній
Шматок Коду
kadn:=param id20010;
if kadn<>'' then Geo:='Топографо-геодезичні роботи на даній території не проводились'
else Geo:=??????

Необхідно підгрузити з текстового файлу інформацію, наприклад "d:\Digitals\Lists\Geodesy.txt"
Можна як варіант використати обробник події, у якомусь CheckBox поставити галочку, а далі мета та сама.


Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 725 ]  На страницу Пред.  1 ... 45, 46, 47, 48, 49

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 107


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB