Вверх ↑
Ответов: 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