Помница Dilma выкладывал :
[code:1]Add(Button,13285760,66,92) {
Left=15
Top=15
Width=65
Caption="открыть"
link(onClick,10347579:doExecute,[])
}
Add(MemoryStream,11002060,157,225)
{
Point(doPosition)
link(SrcStream,3124149:Stream,[(163,198)(205,198)])
}
Add(FileStream,3124149,199,155)
{
Mode=2
Point(doPosition)
link(onLoad,11144342:doText,[(246,161)(246,161)])
link(FileName,5846125:Text,[])
}
Add(Hub,15327600,73,155)
{
OutCount=5
link(onEvent1,3124149:doOpen,[(145,161)(145,161)])
link(onEvent2,11002060:doCopy,[(146,168)(146,231)])
link(onEvent3,3124149:doClose,[(171,175)(171,168)])
link(onEvent4,11002060:doPosition,[(131,182)(131,245)])
link(onEvent5,67498:doData,[(125,189)(125,308)])
}
Add(Edit,5846125,199,92)
{
Left=84
Top=12
Width=406
Font=[Arial,8,0,0,1]
Text="Имя файла"
link(onChange,15327600:doEvent1,[(241,98)(241,139)(63,139)(63,161)])
}
Add(Edit,11144342,269,155)
{
Left=502
Top=14
Width=114
Font=[Arial,8,0,0,1]
Text="размер файла"
link(Str,3124149:Size,[(275,150)(253,150)(253,202)(212,202)])
}
Add(ODialog,10347579,129,92)
{
link(onExecute,5846125:doText,[])
}
Add(DoData,6127646,528,372)
{
Data=String(1310)
link(onEventData,10787905:doWork3,[(581,378)])
}
Add(Edit,1768323,213,302)
{
Left=502
Top=44
Width=114
Font=[Arial,8,0,0,1]
Text="размер данных"
link(onChange,5195481:doFor,[(257,308)(257,364)])
}
Add(DoData,67498,164,302)
{
link(onEventData,1768323:doText,[(215,308)(208,308)])
link(Data,11002060:Size,[])
}
Add(RichEdit,12858706,605,281)
{
Left=20
Top=45
Width=470
Height=225
Font=[Courier New,8,0,0,204]
ScrollBars=3
InsertCRLF=1
}
Add(Convertor,8708395,479,281)
{
Mode=6
link(onResult,10787905:doWork2,[])
link(Data,11397608:Value,[(485,271)(471,271)(471,323)(436,323)])
}
Add(HubEx,10787905,577,274)
{
link(onEvent,12858706:doAdd,[])
}
Add(DataToFile,15938334,381,281)
{
Type=2
link(onGet,11397608:doValue,[(456,287)(421,287)])
link(Stream,11002060:Stream,[(387,273)(163,273)])
}
Add(For,5195481,269,358)
{
Step=4
link(onEvent,5763157:doEvent1,[(309,364)(309,364)])
link(End,1768323:Text,[(282,352)(219,352)])
}
Add(Memory,11397608,430,281)
{
link(onData,8708395:doConvert,[])
}
Add(Hub,5763157,318,358)
{
OutCount=3
link(onEvent1,15938334:doGet,[(365,364)(365,294)])
link(onEvent3,15621988:doOperation,[(388,378)(374,378)])
}
Add(If_else,4975072,479,372)
{
Op2=Real(0)
link(onTrue,6127646:doData,[])
link(Op1,12882683:Result,[(485,362)(471,362)(471,414)(436,414)])
}
Add(Math,12882683,430,372)
{
OpType=8
Op2=16
link(onResult,4975072:doCompare,[])
link(Op1,15621988:Result,[(436,362)(422,362)(422,414)(387,414)])
}
Add(Math,15621988,381,372)
{
Op2=4
link(onResult,12882683:doOperation,[])
}
[/code:1]