Вверх ↑
Разработчик
Ответов: 26066
Рейтинг: 2120
#1: 2009-02-02 17:45:22 ЛС | профиль | цитата
Да ну, муть какя-то. Перкрасно все работает

Вот тестовый пример


Add(MainForm,2953706,140,105)
{
link(onCreate,11548153:doProcess,[])
}
Add(InlineCode,11548153,217,119)
{
WorkPoints=#9:doProcess|
EventPoints=#6:Result|
DataPoints=#2:ID|
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|23: Ole1C : OleVariant;|28: OleFizLica : OleVariant;|18: ID :THI_Event;|21: Result:THI_Event;|53: procedure doProcess(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|32:procedure THiAsmClass.doProcess;|4:Var |14: s : string;|5:begin|29: s:= ReadString(_data,ID,');|12: Ole1C := s;|39: _hi_OnEvent(Result, VarToStr(Ole1C)); |4:end;|0:|4:end.|
link(ID,11708657:Value,[])
link(Result,4855798:doText,[])
}
Add(Memory,11708657,217,63)
{
Default=String(123421431)
}
Add(Edit,4855798,287,119)
{
Left=25
Top=10
Width=160
Text=""
}

карма: 22

1
Голосовали:afandi