Make(delphi)
ver(4.02 build 179)
Pos(243,0)
Add(MainForm,2953706,-82,105)
{
}
Add(Edit,516132,65,154)
{
Left=10
Top=10
Width=355
Text="http://www.knigka.info/category/pc/page/40"
}
Add(Button,11631586,2,224)
{
Left=365
Top=10
Width=20
Caption="+"
link(onClick,10795978:doDownload,[])
}
Add(HTTP_Get,10795978,65,224)
{
link(onDownload,10736984:doConvert,[])
link(URL,516132:Text,[])
}
Add(Convertor,10736984,114,231)
{
Mode=11
link(onResult,6530865:doSearch,[])
}
Add(BlockFind,6530865,184,231)
{
StartBlock=""
link(onSearch,9316116:doValue,[])
link(onEndSearch,15379157:doSave,[(234,286)])
}
Add(StrList,15379157,464,231)
{
FileName="file.html"
Strings=#6:|35:|23:|7:|0:|0:|
}
Add(Memory,9316116,233,231)
{
link(onData,16279900:doNext,[])
}
Add(Counter,16279900,282,231)
{
Max=10
Default=-1
link(onNext,15532376:doCase,[])
}
Add(Case,15532376,331,231)
{
Value=Integer(0)
link(onNextCase,3181668:doData,[])
}
Add(DoData,3181668,380,231)
{
link(onEventData,15379157:doAdd,[])
link(Data,9316116:Value,[(386,219)(312,219)(312,275)(239,275)])
}