Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2005-12-24 17:00:00 ЛС | профиль | цитата
Add(MainForm,12612452,14,49)
{
Left=20
Top=105
Height=106
link(onCreate,4632261:doWork2,[])
}
Add(InlineCode,10787259,84,84)
{
WorkPoints=#11:doOperation|
EventPoints=#8:onResult|
DataPoints=#3:op1|3:op2|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|29: THiAsmClass = class(TDebug)|11: private|10: public|18: Op1:THI_Event;|18: Op2:THI_Event;|23: onResult:THI_Event;|0:|55: procedure doOperation(var _Data:TData; Index:word);|6: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doOperation;|3:var|13: r1,r2:real;|13:// res:real;|5:begin|28: r1:=ReadReal(_Data,Op1,0);|30: r2 := ReadReal(_Data,Op2,0);|21:// Res := r1/r2*100;|30:// _hi_OnEvent(onResult,Res);|34: _hi_OnEvent(onResult,r1/r2*100);|4:end;|0:|4:end.|
link(onResult,5483251:doText,[])
link(op1,6779195:Text,[])
link(op2,4494887:Text,[(97,69)(139,69)])
}
Add(Edit,4494887,133,21)
{
Left=70
Top=20
Text="3544"
link(onChange,2529431:doEvent2,[(194,27)(194,20)])
}
Add(Edit,6779195,84,21)
{
Left=15
Top=20
Text="2890"
link(onChange,2529431:doEvent1,[(125,27)(125,13)])
}
Add(Label,5483251,154,84)
{
Left=130
Top=25
}
Add(Hub,2529431,224,7)
{
InCount=2
link(onEvent1,4632261:doWork3,[(267,13)(267,130)(67,130)])
}
Add(HubEx,4632261,63,77)
{
link(onEvent,10787259:doOperation,[])
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0