------------ Дoбавленo в 17.30:
Подскажите пожалуйста почему не работает перебор строк.Одна и та-же строка 3 раза выводится.
Add(MainForm,7668747,105,196){
Width=360
Height=286
}
Add(ArrayEnum,10457650,273,210)
{
link(onItem,15506698:doDownload,[])
link(Array,12480187:Array,[])
}
Add(Memo,12480187,259,140)
{
Width=344
Align=2
Strings=#31:http://fantasy-worlds.org/lib/1|31:http://fantasy-worlds.org/lib/2|31:http://fantasy-worlds.org/lib/3|
AddType=1
ScrollBars=2
}
Add(Button,2269029,182,210)
{
Top=228
Width=344
Align=4
link(onClick,10457650:doEnum,[])
}
Add(StrList,12481355,791,210)
{
FileName="bbb.html"
AddType=1
}
Add(HTTP_Get,15506698,322,210)
{
URL="http://fantasy-worlds.org/lib/1"
Wait=0
link(onDownload,11197525:doConvert,[])
}
Add(Convertor,11197525,371,217)
{
Mode=11
link(onResult,8274610:doCharset,[])
}
Add(Charset,8274610,413,217)
{
Type=7
link(onCharset,8716934:doSearch,[(464,223)(464,220)])
}
Add(Hub,12149588,686,196)
{
link(onEvent1,8136938:doWork1,[(774,202)])
link(onEvent2,9379954:doData,[(710,209)(710,216)])
}
Add(DoData,9379954,721,210)
{
Data=String(---------------------------------------)
link(onEventData,8136938:doWork2,[])
}
Add(BlockFind,8716934,476,214)
{
StartBlock="<div class="news_title" >"
EndBlock="</span></a>"
link(onSearch,12003653:doSearch,[(552,220)(552,164)])
link(onEndSearch,12481355:doSave,[(672,227)(672,251)])
}
Add(HubEx,8136938,770,210)
{
link(onEvent,12481355:doAdd,[])
}
Add(BlockFind,12003653,595,158)
{
StartBlock="<b>Название:</b>"
EndBlock="</b>"
link(onSearch,12149588:doEvent1,[(657,164)(657,202)])
}