Вверх ↑
Ответов: 4400
Рейтинг: 472
#1: 2017-12-08 19:14:57 ЛС | профиль | цитата
Netspirit, я конечно не гуру и до их "фэншуй" мне далеко, но думаю как то так...
Add(MainForm,14216569,21,91)
{
Width=298
Position=1
}
Add(Button,5706304,168,140)
{
Left=75
Top=15
Caption="Test!"
link(onClick,6087008:doEvent1,[])
}
Add(Edit,13453822,266,91)
{
Left=15
Top=15
Text="1000"
}
Add(For,6980961,259,147)
{
Start=1
link(onEvent,16037272:doWork,[])
link(End,13453822:Text,[])
}
Add(Label,7779441,406,210)
{
Left=135
Top=20
Width=10
Height=17
Caption="0"
}
Add(CounterEx,14700149,357,210)
{
Max=999999999
link(onNext,7779441:doText,[])
}
Add(StrCatDelim,6856616,546,147)
{
Delimiter=": "
}
Add(InlineCode,16037272,329,147)
{
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:|3:var|19: Counter: Integer;|0:|60:procedure THiAsmClass.doWork(var _Data: TData; Index: Word);|3:var|22: OutDT, TmpDT: TData;|16: FreeDT: PData;|5:begin|15: Inc(Counter);|35: // Хочу выдать в поток 2 элемента|28: dtInteger(OutDT, Counter);|36: dtString(TmpDT, Int2Str(Counter));|63: CopyData(@OutDT,@TmpDT); //копия потока из unit hiMT_Add.pas;|36: AddMTData(@OutDT, @TmpDT, FreeDT);|31: _hi_OnEvent(onResult, OutDT);|19: FreeData(@OutDT);|4:end;|0:|0:|0:|0:|4:end.|
link(onResult,8683788:doEvent,[])
}
Add(ListBox,6742944,630,133)
{
Left=15
Top=45
Width=260
Height=215
}
Add(Hub,6087008,217,140)
{
link(onEvent2,6980961:doFor,[])
}
Add(Debug,8683788,413,147)
{
}

карма: 4

0
Редактировалось 1 раз(а), последний 2017-12-08 19:15:36