Вверх ↑
Ответов: 5227
Рейтинг: 586
#1: 2021-12-29 13:48:54 ЛС | профиль | цитата
ещё проще и надёжней

Add(MainForm,2953706,70,63)
{
}
Add(InlineCode,9291942,147,119)
{
WorkPoints=#7:doClose|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|49: procedure doClose(var dt: TData; idx: word);|0:|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doClose;|5:begin|7: Halt;|4:end;|0:|4:end.|
}
Add(Timer,1855399,70,119)
{
Interval=5000
link(onTimer,9291942:doClose,[])
}

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