Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2009-02-08 02:11:05 ЛС | профиль | цитата
Sergius, наверное, что-то похожее на это должно быть


Add(MainForm,168140,392,210)
{
Width=281
Height=171
}
Add(InlineCode,14058540,462,266)
{
WorkPoints=#4:Conv|
EventPoints=#7:onEvent|8:onEvent1|
VarPoints=#6:Result|7:Result1|
DataPoints=#4:Text|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses Kol,Share,Debug;|2: |4:type|28: THiAsmClass = class(TDebug)|10: private|13: a: Real;|13: b: Real;|9: public|20: Text:THI_Event;|23: onEvent:THI_Event;|25: onEvent1:THI_Event; |48: procedure Conv(var Data:TData; Index:word);|50: procedure Result(var Data:TData; index:word);|62: procedure Result1(var Data:TData; index:word); |4:end;|0:|14:implementation|5: |27:procedure THiAsmClass.Conv;|5:begin|68: a := Round((ReadReal(Data,Text,0) - 25569 - VCLDATE0) * 86400000);|16: b := a / 5000;|26: _hi_onEvent(onEvent, a);|29: _hi_onEvent(onEvent1, b); |4:end;|2: |29:procedure THiAsmClass.Result;|5:begin|18: dtReal(Data, a);|4:end;|0:|30:procedure THiAsmClass.Result1;|5:begin|18: dtReal(Data, b);|4:end;|0:|4:end.|
link(onEvent,11919236:doText,[])
link(onEvent1,2948977:doText,[(514,279)(514,321)])
link(Text,15781768:DateTime,[])
}
Add(Time,15781768,455,210)
{
Format="DMMYYYYhhmmss"
Point(DateTime)
}
Add(Timer,11234882,392,266)
{
link(onTimer,14058540:Conv,[])
}
Add(Label,11919236,534,266)
{
Left=25
Top=30
Width=180
}
Add(Label,2948977,534,315)
{
Left=25
Top=55
Width=180
}

карма: 22

0