Вверх ↑
Ответов: 107
Рейтинг: 0
#1: 2020-06-03 01:00:03 ЛС | профиль | цитата
Netspirit, Спасибо тебе большое! Даже не знаю как отблагодарить. Время потратил на меня не мало...

PS. долго возился еще с перебором массива, так как ты сделал в схеме не срабатывало, пока после перебора массива не поставил компонент DoData)))


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
}
Add(ListBox,9763756,714,322)
{
Left=15
Top=70
Width=560
Height=180
DataType=1
}
Add(ODialog,9697955,623,322)
{
Select=1
link(onExecute,9763756:doAdd,[])
}
Add(Button,12000944,567,322)
{
Left=15
Top=40
Width=125
Font=[MS Sans Serif,10,1,255,1]
Caption="Add file..."
link(onClick,9697955:doExecute,[])
}
Add(Hub,15439320,826,441)
{
OutCount=3
}
Add(Button,14583897,623,441)
{
Left=15
Top=260
Width=110
Height=25
Caption="Send!"
link(onClick,4525002:doStart,[])
}
Add(Thread,4525002,679,441)
{
FastStop=0
link(onExec,1179673:doEnum,[])
AddHint(-11,45,37,13,FastStop)
}
Add(ArrayEnum,1179673,728,441)
{
link(onItem,998709:doData,[])
link(Array,9763756:Array,[])
}
Add(DoData,998709,777,441)
{
link(onEventData,15439320:doEvent1,[])
}

карма: 0

0