Вверх ↑
Ответов: 5227
Рейтинг: 585
#1: 2017-12-08 22:09:37 ЛС | профиль | цитата
Netspirit, схема не битая, просто лишнее отцепил для наглядности, запусти диспетчер задач и проверь.
Кстати для счётчика можно и константы использовать, этакие глобально локальные переменные

Add(Button,5706304,266,161)
{
Left=75
Top=15
Caption="Test!"
link(onClick,16037272:doWork,[])
}
Add(InlineCode,16037272,322,161)
{
WorkPoints=#6:doWork|
EventPoints=#8:onResult|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|4:uses|28: Windows, KOL, Share, Debug;|0:|4:type|29: THiAsmClass = class(TDebug)|11: private|0:|10: public|29: onResult: THI_Event; |54: procedure doWork(var _Data: TData; Index: Word);|6: end;|0:|14:implementation|0:|5://var|21:// Counter: Integer;|0:|60:procedure THiAsmClass.doWork(var _Data: TData; Index: Word);|5:const|23: Counter: Integer = 0;|5:begin|15: Inc(Counter);|33: _hi_OnEvent(onResult, Counter);|4:end;|0:|0:|0:|0:|4:end.|
link(onResult,8683788:doEvent,[])
}
Add(Debug,8683788,392,161)
{
}
Add(MainForm,4815798,266,112)
{
Width=298
Position=1
}

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0