Аналитика

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

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




Начать новую тему Ответить на тему  [ Сообщений: 300 ]  На страницу Пред.  1 ... 13, 14, 15, 16, 17, 18, 19, 20  След.
Автор Сообщение
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 27 дек 2013 11:16 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
Bondarets Alexander писал(а):
mixey_dubno писал(а):
Чи можливо підципити txt файл до форми щоб була можливість вибрати потрібний (наприклад список грунтів) щоб кожен раз не вводити, так як на прикладі з госактом, але там вибиває коли є співвласник.

Вам нужна загрузка данных из текстового файла в выпадающий список на форме? Это легко реализовать, в языке FastScript есть работа с текстовыми файлами и динамическое заполнение контролов формы. Смотрите в сторону TStringList и изучите методы контрола TCombobox.

Та це я зрозумів шо потрібно використовувати TCombobox, а вот як його правильоно прописати в кодах то непойму, можливо є якась детальна інформація як це робити?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 27 дек 2013 16:26 
Гуру
Гуру

Зарегистрирован:
26 фев 2007 12:04
Сообщения: 1751
Откуда: Vinnitsa
Для события OnShow формы запишите такой код
Код:
procedure DialogPage1OnShow(Sender: TfrxComponent);
begin
  ComboBox1.Items.LoadFromFile('c:\yourfile.txt');           
end;

Чтобы увидеть список событий кликните по форме, нажмите F11 и переключитесь на закладку События. затем выполните двойной щелчок по событию OnShow. Оно срабатывает перед выводом формы на экран.

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 28 дек 2013 15:08 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
Bondarets Alexander писал(а):
Для события OnShow формы запишите такой код
Код:
procedure DialogPage1OnShow(Sender: TfrxComponent);
begin
  ComboBox1.Items.LoadFromFile('c:\yourfile.txt');           
end;

Чтобы увидеть список событий кликните по форме, нажмите F11 и переключитесь на закладку События. затем выполните двойной щелчок по событию OnShow. Оно срабатывает перед выводом формы на экран.

ДЯкую, зразу не розібрався, не получалось але помаленько перепробувавши кучу варіантів получилося!!!!!Ще раз вдячний!!!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 29 дек 2013 22:42 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
Пробую написати код для нової форми RadioButton1 та RadioButton2, мабуть я щось пропустив....
мені потрібно
якщо RadioButton1 то "набраний текст"
якщо RadioButton2 то Memo
я написав код

procedure Button1OnBeforePrint(Sender: TfrxComponent);
begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text;
if RadioButton2.checked then byd:=Memo99.Lines.Text;
end;
end;
що я не так написав?


Вложения:
000.jpg
000.jpg [ 56.53 Кб | Просмотров: 12821 ]
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 31 дек 2013 19:34 
Гуру
Гуру

Зарегистрирован:
26 фев 2007 12:04
Сообщения: 1751
Откуда: Vinnitsa
Похоже, все правильно. А что не работает? Проверьте чтобы radiobuttons переключались - когда включен один, второй должен выключаться и наоборот.

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 31 дек 2013 20:33 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
Bondarets Alexander писал(а):
Похоже, все правильно. А что не работает? Проверьте чтобы radiobuttons переключались - когда включен один, второй должен выключаться и наоборот.

radiobuttons переключаються! я пишу на сторінці текст [dyd] і нічого не відбувається пуста строчка!
пробував написати по іншому
procedure Button1OnBeforePrint(Sender: TfrxComponent);
var
byd: string;

begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text
else byd:=Memo99.Lines.Text;
end;
end;

Результат тойже самий пустота.... без вас ніяк потрібна допомога!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 01 янв 2014 05:46 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
var
byd: string; //змінна глобальна, та видима у всьому скрипті, а не тільки всередині процедури

procedure Button1OnBeforePrint(Sender: TfrxComponent);
begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text
else byd:=Memo99.Lines.Text;
end;
end;

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 01 янв 2014 13:21 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
Dmitry_Zolotar писал(а):
var
byd: string; //змінна глобальна, та видима у всьому скрипті, а не тільки всередині процедури

procedure Button1OnBeforePrint(Sender: TfrxComponent);
begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text
else byd:=Memo99.Lines.Text;
end;
end;

З Новим Роком вітаю!!!!!щось воно всерівно не працює :oops:


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 01 янв 2014 21:02 
Гуру
Гуру

Зарегистрирован:
18 апр 2007 11:55
Сообщения: 2298
Откуда: Vinnytsia
https://dl.dropboxusercontent.com/u/13187272/fr3_samples/CheckBox.fr3

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 01 янв 2014 22:40 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
Dmitry_Zolotar писал(а):

Цілком згідний з вами, принцип трошки інший але вихідний результат той що треба було!!! Дякую ще раз!!!!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 02 янв 2014 10:39 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
mixey_dubno писал(а):
Dmitry_Zolotar писал(а):
var
byd: string; //змінна глобальна, та видима у всьому скрипті, а не тільки всередині процедури

procedure Button1OnBeforePrint(Sender: TfrxComponent);
begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text
else byd:=Memo99.Lines.Text;
end;
end;

З Новим Роком вітаю!!!!!щось воно всерівно не працює :oops:

МОє творіння теж працює тільки треба було добавити событие OnHide. і процедуру змінити на procedure DialogPage1OnHide(Sender: TfrxComponent);


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 05 янв 2014 11:57 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
в новій формі створив Edit1, edit2, edit3. присвоїв значення SD21:=Edit1.text, SD22:=Edit2.text і т.д. З елементом Edit метематичні функції виконуються SDZ:=SD21+5 або SDZ:=SD22*1000. При вводі чила в едіт виконуються умови додавання та множення. Як дадати два елемента? наприклад Edit SDZ:=SD21+SD22 так умова не працює чому?


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 09 янв 2014 11:32 
Гуру
Гуру

Зарегистрирован:
26 фев 2007 12:04
Сообщения: 1751
Откуда: Vinnitsa
mixey_dubno писал(а):
в новій формі створив Edit1, edit2, edit3. присвоїв значення SD21:=Edit1.text, SD22:=Edit2.text і т.д. З елементом Edit метематичні функції виконуються SDZ:=SD21+5 або SDZ:=SD22*1000. При вводі чила в едіт виконуються умови додавання та множення. Як дадати два елемента? наприклад Edit SDZ:=SD21+SD22 так умова не працює чому?

В Edit.Text хранится строка, чтобы выполнять математические операции надо ее сначала преобразовать в число.

// вещественное
F := StrToFloat(Edit.Text);
// или целое
I := StrToInt(Edit.Text);

И затем уже использовать числовые переменные.

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


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 15 янв 2014 15:47 
Гуру
Гуру

Зарегистрирован:
06 дек 2011 13:07
Сообщения: 200
Откуда: Дубно
Bondarets Alexander писал(а):
mixey_dubno писал(а):
в новій формі створив Edit1, edit2, edit3. присвоїв значення SD21:=Edit1.text, SD22:=Edit2.text і т.д. З елементом Edit метематичні функції виконуються SDZ:=SD21+5 або SDZ:=SD22*1000. При вводі чила в едіт виконуються умови додавання та множення. Як дадати два елемента? наприклад Edit SDZ:=SD21+SD22 так умова не працює чому?

В Edit.Text хранится строка, чтобы выполнять математические операции надо ее сначала преобразовать в число.

// вещественное
F := StrToFloat(Edit.Text);
// или целое
I := StrToInt(Edit.Text);

И затем уже использовать числовые переменные.


Дякую використав AnyStrToFloat(Edit1.text) тоді запрацювало!


Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: XML против Reports
СообщениеДобавлено: 22 янв 2014 23:45 
Специалист
Специалист

Зарегистрирован:
14 авг 2012 10:47
Сообщения: 18
Откуда: Ровно
Доброго времени суток!
Однажды видел на форуме описание процедуры, позволявшей использовать несколько диалоговых форм и переходить на предыдущую. Теперь, сколько ни искал, не могу найти. Подскажите, в каком направлении копать?


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 300 ]  На страницу Пред.  1 ... 13, 14, 15, 16, 17, 18, 19, 20  След.

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


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

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


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

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