вот еще вариантик:
[code:1]Add(MainForm,10130017,-89,224) {
Left=20
Top=105
Width=564
Height=372
}
Add(Button,13285760,-89,77)
{
Left=9
Top=7
Width=220
Font=[Verdana,7,0,0,204]
Caption="открыть"
link(onClick,10347579:doExecute,[])
}
Add(GetDataEx,10498473,-19,147)
{
link(Data,11002060:Size,[(-6,126)(225,126)])
}
Add(HubEx,11731569,-5,168)
{
link(onEvent,6798934:doFor,[])
}
Add(Hub,3185846,415,462)
{
OutCount=5
link(onEvent1,4184291:doWork3,[(510,468)])
link(onEvent2,2881477:doClear,[(457,475)(457,219)(328,219)(328,41)])
link(onEvent3,1480471:doClear,[(494,482)(494,328)])
link(onEvent4,16570891:doWork3,[(457,489)(457,278)(181,278)])
link(onEvent5,11731569:doWork3,[(457,496)(457,324)(-1,324)])
}
Add(Edit,5846125,23,77)
{
Left=9
Top=32
Width=351
Font=[Verdana,7,0,0,204]
Text="Имя файла"
link(onChange,15327600:doEvent1,[(74,83)(74,83)])
}
Add(Math,15068998,338,462)
{
OpType=9
Op2=4
link(onResult,3185846:doEvent1,[(401,468)(401,468)])
}
Add(ODialog,10347579,-26,77)
{
link(onExecute,5846125:doText,[])
}
Add(Convertor,10811591,310,133)
{
Mode=6
Digits=8
link(onResult,3795143:doStrCat,[])
link(Data,7988296:Result,[(316,123)(239,123)(239,175)(141,175)])
}
Add(If_else,15211951,233,133)
{
Op2=Integer(0)
link(onTrue,10811591:doConvert,[])
}
Add(Memo,2881477,366,28)
{
Top=60
Width=70
Height=285
Color=12639424
Ctl3D=1
Font=[Courier New,8,0,0,204]
}
Add(Edit,15142902,-75,175)
{
Left=234
Top=7
Width=125
Font=[Verdana,7,0,0,204]
Text=""
link(onChange,11731569:doWork2,[(-19,181)(-19,181)])
link(Str,10498473:Var1,[(-69,156)])
}
Add(Math,5842296,65,336)
{
OpType=10
Op2=4
link(onResult,10069174:doMax,[(125,342)(125,342)])
}
Add(DoData,2372883,2,336)
{
link(onEventData,5842296:doOperation,[])
link(Data,10498473:Var3,[(8,156)])
}
Add(ScrollBar,10069174,149,329)
{
Left=535
Top=60
Width=20
Height=285
Kind=1
Point(doMax)
link(onPosition,15068998:doOperation,[(259,335)(259,468)])
}
Add(Math,2598109,184,133)
{
OpType=8
Op2=16
ResultType=0
link(onResult,15211951:doCompare,[])
}
Add(MemoryStream,11002060,212,42)
{
Point(doPosition)
}
Add(FileStream,3124149,163,42)
{
Mode=2
Point(doPosition)
link(onLoad,11002060:doCopy,[])
}
Add(Hub,15327600,93,77)
{
OutCount=7
link(onEvent1,11002060:doClear,[(170,83)(170,55)])
link(onEvent2,4184291:doWork2,[(160,90)(160,293)])
link(onEvent3,3124149:doOpen,[(146,97)(146,48)])
link(onEvent4,3124149:doClose,[(146,104)(146,55)])
link(onEvent5,16570891:doWork2,[(155,111)(155,90)])
link(onEvent6,15142902:doText,[(137,118)(137,152)(-83,152)(-83,181)])
link(onEvent7,2372883:doData,[(137,125)(137,229)(-6,229)(-6,342)])
}
Add(Math,12882683,219,224)
{
OpType=8
Op2=16
ResultType=0
link(onResult,4975072:doCompare,[])
}
Add(GetDataEx,11376439,429,133)
{
link(Data,1418242:Value,[(442,130)(442,130)])
}
Add(StrCat,4303662,359,175)
{
Str1=" "
link(onStrCat,639050:doStrCat,[])
}
Add(StrCat,639050,429,175)
{
link(onStrCat,1418242:doValue,[(473,181)(473,149)(421,149)(421,97)])
link(Str1,11376439:Var1,[(435,142)])
}
Add(Convertor,8708395,310,175)
{
Mode=6
link(onResult,4303662:doStrCat,[])
}
Add(DataToFile,15938334,219,175)
{
link(onGet,169262:doEvent1,[])
link(Stream,11002060:Stream,[(225,120)(218,120)])
}
Add(For,6798934,37,175)
{
End=304
IncludeEnd=1
link(onEvent,5763157:doEvent1,[])
link(onStop,7281195:doOperation,[(170,188)(170,279)])
}
Add(Hub,5763157,86,175)
{
OutCount=3
link(onEvent1,7988296:doOperation,[(126,181)(126,139)])
link(onEvent2,15938334:doGet,[])
link(onEvent3,12882683:doOperation,[(177,195)(177,230)])
}
Add(If_else,4975072,310,224)
{
Op2=Integer(15)
link(onTrue,4540781:doEvent1,[])
}
Add(StrCat,3795143,359,133)
{
Str2=":"
link(onStrCat,2881477:doAdd,[(401,139)(401,103)(356,103)(356,34)])
}
Add(HubEx,16570891,177,77)
{
link(onEvent,11002060:doPosition,[(203,90)(203,62)])
}
Add(Hub,4540781,373,224)
{
OutCount=4
link(onEvent1,8440203:doWork1,[(454,230)])
link(onEvent2,1418242:doClear,[(421,237)(421,104)])
link(onEvent3,9289599:doData,[(441,244)(441,398)])
link(onEvent4,10434696:doClear,[(417,251)(417,314)])
}
Add(Memory,1418242,436,91)
{
Default=String()
}
Add(DoData,2842396,478,231)
{
link(onEventData,11302544:doAdd,[])
link(Data,11376439:Var3,[(484,142)])
}
Add(HubEx,8440203,450,224)
{
link(onEvent,2842396:doData,[(470,237)(470,237)])
}
Add(Memo,11302544,534,231)
{
Left=69
Top=60
Width=346
Height=285
Color=12639424
Ctl3D=1
Font=[Courier New,8,0,0,204]
}
Add(Math,7281195,219,273)
{
OpType=8
Op2=16
ResultType=0
link(onResult,5882437:doCompare,[])
}
Add(If_else,5882437,310,273)
{
Op2=Integer(15)
link(onFalse,8440203:doWork3,[(454,286)])
}
Add(Memo,1480471,541,315)
{
Left=414
Top=60
Width=120
Height=285
Color=12639424
Ctl3D=1
Font=[Courier New,8,0,0,204]
}
Add(DoData,9289599,478,392)
{
link(onEventData,1480471:doAdd,[(525,398)(525,321)])
link(Data,373123:Var3,[(484,352)])
}
Add(Convertor,2099972,317,371)
{
Mode=4
link(onResult,14391398:doStrCat,[])
}
Add(StrCat,14391398,429,371)
{
link(onStrCat,10434696:doValue,[(471,377)(471,352)(419,352)(419,307)])
link(Str1,373123:Var2,[])
}
Add(Memory,10434696,429,301)
{
}
Add(GetDataEx,373123,422,343)
{
link(Data,10434696:Value,[])
}
Add(Hub,169262,261,175)
{
link(onEvent1,8708395:doConvert,[])
link(onEvent2,2099972:doConvert,[(305,188)(305,377)])
}
Add(HubEx,4184291,506,280)
{
link(onEvent,11302544:doClear,[(524,293)(524,244)])
}
Add(Math,7988296,135,133)
{
link(onResult,2598109:doOperation,[])
link(Op2,15068998:Result,[(148,123)(252,123)(252,504)(344,504)])
}
[/code:1]