Взял бы да поправил......
[code:1]Add(MainForm,12169518,14,112) {
Left=20
Top=105
Width=467
Height=386
}
Add(Button,13285760,14,21)
{
Left=9
Top=7
Width=220
Caption="открыть"
link(onClick,10347579:doExecute,[])
}
Add(MemoryStream,11002060,259,21)
{
Point(doPosition)
}
Add(FileStream,3124149,210,21)
{
Mode=2
Point(doPosition)
link(onLoad,11002060:doCopy,[])
}
Add(Hub,15327600,161,21)
{
OutCount=4
link(onEvent1,3124149:doOpen,[])
link(onEvent2,3124149:doClose,[])
link(onEvent3,11002060:doPosition,[])
link(onEvent4,1768323:doText,[(203,48)(203,61)(65,61)(65,125)])
}
Add(Edit,5846125,112,21)
{
Left=9
Top=32
Width=441
Font=[Arial,8,0,0,1]
Text="Имя файла"
link(onChange,15327600:doEvent1,[])
}
Add(Math,12882683,259,168)
{
OpType=8
Op2=16
link(onResult,4975072:doCompare,[])
}
Add(ODialog,10347579,63,21)
{
link(onExecute,5846125:doText,[])
}
Add(DoData,6127646,371,168)
{
Data=String(1310)
link(onEventData,10787905:doWork3,[(424,174)])
}
Add(Edit,1768323,77,119)
{
Left=234
Top=7
Width=215
Font=[Arial,8,0,0,1]
Text="размер данных"
link(onChange,5195481:doFor,[])
link(Str,2015233:Var1,[(83,100)])
}
Add(StrCat,4303662,371,119)
{
Str1=" "
link(onStrCat,10787905:doWork2,[])
}
Add(RichEdit,12858706,441,119)
{
Left=9
Top=55
Width=441
Height=285
Font=[Courier New,8,0,0,204]
ScrollBars=3
InsertCRLF=1
}
Add(Convertor,8708395,322,119)
{
Mode=6
link(onResult,4303662:doStrCat,[])
}
Add(HubEx,10787905,420,112)
{
link(onEvent,12858706:doAdd,[])
}
Add(DataToFile,15938334,259,119)
{
link(onGet,8708395:doConvert,[])
link(Stream,11002060:Stream,[(265,63)(265,63)])
}
Add(For,5195481,126,119)
{
IncludeEnd=1
link(onEvent,5763157:doEvent1,[])
link(End,2015233:Var2,[])
}
Add(GetDataEx,2015233,126,91)
{
link(Data,11002060:Size,[(139,70)(272,70)])
}
Add(Hub,5763157,175,119)
{
OutCount=3
link(onEvent1,2598109:doOperation,[(215,125)(215,83)])
link(onEvent2,15938334:doGet,[])
link(onEvent3,12882683:doOperation,[(215,139)(215,174)])
}
Add(If_else,4975072,322,168)
{
Op2=Integer(15)
link(onTrue,6127646:doData,[])
}
Add(StrCat,3795143,371,77)
{
Str2=":"
link(onStrCat,10787905:doWork1,[(424,83)])
}
Add(Convertor,10811591,322,77)
{
Mode=6
Digits=8
link(onResult,3795143:doStrCat,[])
link(Data,5195481:Position,[(328,67)(313,67)(313,163)(132,163)])
}
Add(Math,2598109,224,77)
{
OpType=8
Op2=16
link(onResult,15211951:doCompare,[])
}
Add(If_else,15211951,273,77)
{
Op2=Integer(0)
link(onTrue,10811591:doConvert,[])
}[/code:1]