------------ Дoбавленo в 06.53:
Add(MainForm,7118726,168,98)
{
Width=458
Height=408
}
Add(BitBtn,12801863,161,273)
{
Left=298
Top=35
Width=120
Height=30
Caption="Начать поиск"
link(onClick,3210279:doEvent1,[])
}
Add(BitBtn,12490879,672,434)
{
Left=298
Top=70
Width=120
Height=30
Caption="Сохранить в файл"
link(onClick,12638765:doSave,[])
}
Add(Memo,532708,672,322)
{
Left=10
Top=10
Width=280
Height=345
ScrollBars=3
link(onChange,12163956:doSearch,[(713,328)(713,381)(660,381)(660,405)])
}
Add(BlockFind,12163956,672,399)
{
IncludeBlock=1
StartBlock="mailto:"
EndBlock=".ru"
link(onSearch,15290306:doStrCat,[])
link(Text,532708:Text,[])
}
Add(HTTP_Get,13034677,483,336)
{
link(onDownload,11714788:doEvent1,[])
link(URL,9817224:FString,[])
}
Add(Convertor,8818509,602,343)
{
Mode=11
link(onResult,532708:doText,[])
}
Add(Memo,12638765,819,399)
{
Left=298
Top=120
Width=130
Height=235
FileName="lol.txt"
ScrollBars=2
}
Add(StrCat,15290306,742,399)
{
Str2=".ru"
link(onStrCat,12638765:doAdd,[])
}
Add(Label,12112377,165,145)
{
Left=295
Top=10
Width=29
Height=17
Caption="id_s="
}
Add(Edit,4914928,483,196)
{
Left=325
Top=8
Width=60
Text="0"
DataType=1
}
Add(FormatStr,9817224,483,273)
{
DataCount=1
Mask="http://www.exaccess.ru/asp/seller.asp?id_s=%1"
Point(FString)
link(Str1,4914928:Text,[])
}
Add(Hub,10294212,406,294)
{
OutCount=3
link(onEvent1,4914928:doText2,[(443,300)(443,209)])
link(onEvent2,9817224:doString,[(453,307)(453,279)])
link(onEvent3,13034677:doDownload,[(452,314)(452,342)])
}
Add(Counter,11854962,350,294)
{
Min=-1
Max=0
Default=-1
Point(Max)
Point(doMax)
link(onNext,10294212:doEvent1,[])
}
Add(Hub,11714788,560,343)
{
link(onEvent1,8818509:doConvert,[])
link(onEvent2,2617920:doWork3,[(587,356)(587,374)(312,374)])
}
Add(HubEx,2617920,308,294)
{
link(onEvent,11854962:doNext,[])
}
Add(Label,10603431,396,112)
{
Left=386
Top=10
Width=7
Height=17
Caption="-"
}
Add(Edit,3713081,252,210)
{
Left=392
Top=9
Text="100"
}
Add(Hub,3210279,210,273)
{
link(onEvent1,631921:doData,[])
link(onEvent2,2617920:doWork2,[(234,286)(234,300)])
}
Add(DoData,631921,252,273)
{
link(onEventData,11854962:doMax,[(333,279)(333,321)])
link(Data,3713081:Text,[])
}
вариант без For