Аналитика http://geosystema.net/forum/ |
|
XML против Reports http://geosystema.net/forum/viewtopic.php?f=1&t=2051 |
Страница 16 из 20 |
Автор: | mixey_dubno [ 27 дек 2013 11:16 ] |
Заголовок сообщения: | Re: XML против Reports |
Bondarets Alexander писал(а): mixey_dubno писал(а): Чи можливо підципити txt файл до форми щоб була можливість вибрати потрібний (наприклад список грунтів) щоб кожен раз не вводити, так як на прикладі з госактом, але там вибиває коли є співвласник. Вам нужна загрузка данных из текстового файла в выпадающий список на форме? Это легко реализовать, в языке FastScript есть работа с текстовыми файлами и динамическое заполнение контролов формы. Смотрите в сторону TStringList и изучите методы контрола TCombobox. Та це я зрозумів шо потрібно використовувати TCombobox, а вот як його правильоно прописати в кодах то непойму, можливо є якась детальна інформація як це робити? |
Автор: | Bondarets Alexander [ 27 дек 2013 16:26 ] |
Заголовок сообщения: | Re: XML против Reports |
Для события OnShow формы запишите такой код Код: procedure DialogPage1OnShow(Sender: TfrxComponent); begin ComboBox1.Items.LoadFromFile('c:\yourfile.txt'); end; Чтобы увидеть список событий кликните по форме, нажмите F11 и переключитесь на закладку События. затем выполните двойной щелчок по событию OnShow. Оно срабатывает перед выводом формы на экран. |
Автор: | mixey_dubno [ 28 дек 2013 15:08 ] |
Заголовок сообщения: | Re: XML против Reports |
Bondarets Alexander писал(а): Для события OnShow формы запишите такой код Код: procedure DialogPage1OnShow(Sender: TfrxComponent); begin ComboBox1.Items.LoadFromFile('c:\yourfile.txt'); end; Чтобы увидеть список событий кликните по форме, нажмите F11 и переключитесь на закладку События. затем выполните двойной щелчок по событию OnShow. Оно срабатывает перед выводом формы на экран. ДЯкую, зразу не розібрався, не получалось але помаленько перепробувавши кучу варіантів получилося!!!!!Ще раз вдячний!!! |
Автор: | mixey_dubno [ 29 дек 2013 22:42 ] | ||
Заголовок сообщения: | Re: XML против Reports | ||
Пробую написати код для нової форми 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; що я не так написав?
|
Автор: | Bondarets Alexander [ 31 дек 2013 19:34 ] |
Заголовок сообщения: | Re: XML против Reports |
Похоже, все правильно. А что не работает? Проверьте чтобы radiobuttons переключались - когда включен один, второй должен выключаться и наоборот. |
Автор: | mixey_dubno [ 31 дек 2013 20:33 ] |
Заголовок сообщения: | Re: XML против Reports |
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; Результат тойже самий пустота.... без вас ніяк потрібна допомога! |
Автор: | Dmitry_Zolotar [ 01 янв 2014 05:46 ] |
Заголовок сообщения: | Re: XML против Reports |
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; |
Автор: | mixey_dubno [ 01 янв 2014 13:21 ] |
Заголовок сообщения: | Re: XML против Reports |
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; З Новим Роком вітаю!!!!!щось воно всерівно не працює |
Автор: | Dmitry_Zolotar [ 01 янв 2014 21:02 ] |
Заголовок сообщения: | Re: XML против Reports |
https://dl.dropboxusercontent.com/u/13187272/fr3_samples/CheckBox.fr3 |
Автор: | mixey_dubno [ 01 янв 2014 22:40 ] |
Заголовок сообщения: | Re: XML против Reports |
Dmitry_Zolotar писал(а): Цілком згідний з вами, принцип трошки інший але вихідний результат той що треба було!!! Дякую ще раз!!!! |
Автор: | mixey_dubno [ 02 янв 2014 10:39 ] |
Заголовок сообщения: | Re: XML против Reports |
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; З Новим Роком вітаю!!!!!щось воно всерівно не працює МОє творіння теж працює тільки треба було добавити событие OnHide. і процедуру змінити на procedure DialogPage1OnHide(Sender: TfrxComponent); |
Автор: | mixey_dubno [ 05 янв 2014 11:57 ] |
Заголовок сообщения: | Re: XML против Reports |
в новій формі створив Edit1, edit2, edit3. присвоїв значення SD21:=Edit1.text, SD22:=Edit2.text і т.д. З елементом Edit метематичні функції виконуються SDZ:=SD21+5 або SDZ:=SD22*1000. При вводі чила в едіт виконуються умови додавання та множення. Як дадати два елемента? наприклад Edit SDZ:=SD21+SD22 так умова не працює чому? |
Автор: | Bondarets Alexander [ 09 янв 2014 11:32 ] |
Заголовок сообщения: | Re: XML против Reports |
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); И затем уже использовать числовые переменные. |
Автор: | mixey_dubno [ 15 янв 2014 15:47 ] |
Заголовок сообщения: | Re: XML против Reports |
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) тоді запрацювало! |
Автор: | Thremere [ 22 янв 2014 23:45 ] |
Заголовок сообщения: | Re: XML против Reports |
Доброго времени суток! Однажды видел на форуме описание процедуры, позволявшей использовать несколько диалоговых форм и переходить на предыдущую. Теперь, сколько ни искал, не могу найти. Подскажите, в каком направлении копать? |
Страница 16 из 20 | Часовой пояс: UTC + 2 часа |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |