Код элемента FTCG

Вверх ↑

Форумы Между деломКод элемента FTCG ← Ctrl1 234 5 6 7Ctrl →

Этот топик читают: Гость

Администрация

Ответов: 15295

Рейтинг: 1519

#31: 2011-01-31 11:02:09 ЛС | профиль | цитата

hiEditMultiEx.hws

карма: 27

https://hiasm.com

Голосовали:

Ответов: 4630

Рейтинг: 749

#32: 2011-01-31 12:26:37 ЛС | профиль | цитата

Так вот оно где сидит! Я щелкал правой кнопкой по EditMulti, выбирал "Исходник компонента" и оно мне открывало pas-файл.
Не догадался, что есть ещё и hws с таким именем.

карма: 26

Ответов: 1429

Рейтинг: 50

#33: 2011-03-09 16:56:12 ЛС | профиль | цитата

Cкажите, как сгенерить случайное число в коде скрипта FTCG?

карма: 0

Ответов: 4630

Рейтинг: 749

#34: 2011-03-09 17:24:52 ЛС | профиль | цитата

Написать свой метод в direct.inc.

карма: 26

Ответов: 1429

Рейтинг: 50

#35: 2011-03-09 17:48:53 ЛС | профиль | цитата

Netspirit, Эх! Это сложно для меня, я думал, может, есть какой-то готовый оператор.

карма: 0

Ответов: 1429

Рейтинг: 50

#36: 2011-03-11 15:21:58 ЛС | профиль | цитата

Возникла проблема. А как добавить запись в destructor? Как-то можно выделить этот блок?


#pas
destructor TClassFTCG_Tools_8EA8840.Destroy;
begin
  inherited Destroy;
end;

карма: 0

Ответов: 4630

Рейтинг: 749

#37: 2011-03-11 15:32:06 ЛС | профиль | цитата

В hiEditMultiEx.hws в области регистрации блоков дописываешь

block.reg('BLK_DESTROY')

Это

println('destructor ', CUR_CLASS, '.Destroy;')
lng.begin()
println('inherited Destroy;')
lng.end()

заменяешь на это:

println('destructor ', CUR_CLASS, '.Destroy;')
lng.begin()
println('inherited Destroy;')
block.copyhere('BLK_DESTROY')
block.delete('BLK_DESTROY')
lng.end()

В коде компонентов делаешь block.select('BLK_DESTROY')

карма: 26

Голосовали:

Ответов: 1429

Рейтинг: 50

#38: 2011-03-11 15:51:07 ЛС | профиль | цитата

Netspirit, Сделал, не работает, печатает в том блоке который был выделен последним перед BLK_DESTROY.
Ошибок не выдает.
------------ Дoбавленo в 15.45:
ОЙ! Забыл зарегистрировать блок!
------------ Дoбавленo в 15.50:
Работает!!


#pas
destructor TClassFTCG_Tools_8EA8840.Destroy;
begin
  inherited Destroy;
  //QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
end;

Пишет после inherited Destroy порядок записей не важен? У таймера, к примеру, так:


#pas
destructor THIMMTimer.Destroy;
begin
   FTimer.free;  //это хочу вставить
   inherited Destroy;
end;

карма: 0

Ответов: 4630

Рейтинг: 749

#39: 2011-03-11 16:00:30 ЛС | профиль | цитата

Ой, точно. Я скопировал из конструктора, а в деструкторе должно быть в обратном порядке.
Поставь println('inherited Destroy;') после block.copyhere('BLK_DESTROY')

карма: 26

Ответов: 1429

Рейтинг: 50

#40: 2011-03-11 20:29:17 ЛС | профиль | цитата

Работает! СпасибО!
------------ Дoбавленo в 20.28:
Помогите, пожалуйста, у меня пробел в делфи. Вот есть переменная FTimer, мы через точку ей передаем какие-то значения:


#pas
   FTimer.Enabled := false;
   FTimer.OnTimer := onTimer;
   //и т. д.

Она их принимает, и все нормально, а как, можно прочитать эти значения? Например, чтобы составить условие if..

карма: 0

Ответов: 3349

Рейтинг: 233

#41: 2011-03-11 20:45:51 ЛС | профиль | цитата

if FTimer.Enabled = true{Это не обязательно, так для примера} then else ;

карма: 1

Ответов: 1429

Рейтинг: 50

#42: 2011-03-11 21:09:35 ЛС | профиль | цитата

Ivann, значит, все правильно, но вот оно так и не работает..
Пишу:


#hws
if (FTimer.Enabled = false)
event(onStop)//событие!

Пишет Error[74]: Ошибка чтения аргументов if: ожидается символ )

Если, просто, делаю:


#hws
event(onStop,FTimer.Enabled)//событие!

Тоже не работает.
При этом, любая другая переменная, без точки, работает.

карма: 0

Ответов: 3349

Рейтинг: 233

#43: 2011-03-11 21:23:36 ЛС | профиль | цитата

login, надо выводить код на pascal, FTCG генерируется код на этапе кодогенерации, а тебе нужно вывести уже готовый код.

карма: 1

Ответов: 1429

Рейтинг: 50

#44: 2011-03-11 21:45:40 ЛС | профиль | цитата

Ivann, если я правильно тебя понял, в коде delphi, для компилятора, ничего не выводится, то-есть пусто.
Но кажется я начинаю понимать в чем дело, FTCG не знает такого типа данных "с точкой". И надо придумать хитрость уже в готовом коде. Спасибо!

карма: 0

Ответов: 3349

Рейтинг: 233

#45: 2011-03-11 21:47:39 ЛС | профиль | цитата

login, Да, ты писал на FTCG, а нужно на Delphi.

карма: 1

Форумы Между деломКод элемента FTCG ← Ctrl1 234 5 6 7Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)