Add(MainForm,12650515,77,112)
{
Width=235
Height=204
link(onCreate,8588016:doEvent1,[])
}
Add(InlineCode,10273744,203,126)
{
WorkPoints=#5:doAdd|6:doAdd1|
EventPoints=#8:onGetStr|0:|
DataPoints=#6:strArr|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses Kol,Share,Debug;|0:|4:type|28: THiAsmUnit = class(TDebug)|10: private|0:|9: public|30: onGetStr,strArr:THI_Event;|46: procedure doAdd(var _Data:TData; Index:word);|51: procedure doAdd1(var _Data:TData; Index:word); |6: end;|0:|14:implementation|0:|27:procedure THiAsmUnit.doAdd;|3:var|16: lst: PStrlist;|13: i: integer;|5:begin|19: lst := NewStrList;|35: lst.Text := ToStringEvent(strArr);|30: for i := 0 to lst.Count -1 do|38: _hi_onEvent(onGetStr,lst.Items[i]);|14: lst.Free; |5:end; |0:|57:procedure THiAsmUnit.doAdd1(var _Data:TData; Index:word);|4:var |13: i: integer;|12: s: string;|5:begin|29: s := ToStringEvent(strArr);|28: for i := 1 to Length(s) do|31: _hi_onEvent(onGetStr,s[i]);|4:end;|0:|0:|4:end.|
link(onGetStr,1194867:doAdd,[])
link(strArr,6340415:Text,[])
}
Add(StrList,6340415,203,56)
{
Strings=#4:Коза|4:Волк|7:Капуста|0:|
}
Add(RichEdit,1194867,301,126)
{
Left=5
Top=25
Width=210
Height=135
ScrollBars=2
}
Add(Hub,8588016,147,126)
{
link(onEvent1,10273744:doAdd,[])
link(onEvent2,10273744:doAdd1,[])
}
Ответов: 5227
Рейтинг: 587
|
|||
Joiner, не знаю то не то но твой пример не собирается
|
|||
карма: 4 |
| ||
Голосовали: | Joiner |