Редактировалось 1 раз(а), последний 2017-03-03 10:01:36

Помница 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]

AVC, пример не правельный

Взял бы да поправил......
[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]

Так лучше !

[code:1]Add(MainForm,12169518,12,182) {
Left=20
Top=105
Width=490
Height=386
}
Add(Button,13285760,33,35)
{
Left=9
Top=7
Width=220
Caption="открыть"
link(onClick,10347579:doExecute,[])
}
Add(GetDataEx,10498473,89,112)
{
link(Data,11002060:Size,[(102,91)(333,91)])
}
Add(HubEx,11731569,103,133)
{
link(onEvent,6798934:doFor,[])
}
Add(Hub,3185846,523,329)
{
OutCount=3
link(onEvent1,12858706:doClear,[(565,335)(565,254)(499,254)(499,154)])
link(onEvent2,16570891:doWork3,[(578,342)(578,284)(293,284)])
link(onEvent3,11731569:doWork3,[(618,349)(618,240)(107,240)])
}
Add(Edit,5846125,131,35)
{
Left=9
Top=32
Width=441
Font=[Arial,8,0,0,1]
Text="Имя файла"
link(onChange,15327600:doEvent1,[(196,41)(196,49)])
}
Add(Math,15068998,446,336)
{
OpType=9
Op2=4
link(onResult,3185846:doEvent1,[(507,342)(507,335)])
}
Add(ODialog,10347579,82,35)
{
link(onExecute,5846125:doText,[])
}
Add(Convertor,10811591,390,99)
{
Mode=6
Digits=8
link(onResult,3795143:doStrCat,[])
link(Data,6798934:Position,[(396,89)(381,89)(381,185)(200,185)])
}
Add(If_else,15211951,341,99)
{
Op2=Integer(0)
link(onTrue,10811591:doConvert,[])
}
Add(DoData,4636757,362,357)
{
link(onEventData,15068998:doOperation,[(420,363)(420,342)])
link(Data,10069174:Position,[(368,342)(263,342)])
}
Add(Edit,15142902,33,140)
{
Left=234
Top=7
Width=215
Font=[Arial,8,0,0,1]
Text="размер данных"
link(onChange,11731569:doWork2,[(87,146)(87,146)])
link(Str,10498473:Var1,[(39,121)])
}
Add(Math,5842296,173,294)
{
OpType=10
Op2=4
link(onResult,10069174:doMax,[(231,300)(231,307)])
}
Add(DoData,2372883,110,294)
{
link(onEventData,5842296:doOperation,[])
link(Data,10498473:Var3,[(116,121)])
}
Add(ScrollBar,10069174,257,294)
{
Left=460
Top=60
Width=20
Height=285
Kind=1
Point(doMax)
link(onPosition,4636757:doData,[(325,300)(325,363)])
}
Add(Math,2598109,292,99)
{
OpType=8
Op2=16
ResultType=0
link(onResult,15211951:doCompare,[])
}
Add(MemoryStream,11002060,320,8)
{
Point(doPosition)
}
Add(FileStream,3124149,271,8)
{
Mode=2
Point(doPosition)
link(onLoad,11002060:doCopy,[])
}
Add(Hub,15327600,208,43)
{
OutCount=5
link(onEvent1,3124149:doOpen,[(255,49)(255,14)])
link(onEvent2,3124149:doClose,[(255,56)(255,21)])
link(onEvent3,16570891:doWork2,[(264,63)(264,61)])
link(onEvent4,15142902:doText,[(271,70)(271,83)(28,83)(28,146)])
link(onEvent5,2372883:doData,[(271,77)(271,187)(100,187)(100,300)])
}
Add(Math,12882683,327,190)
{
OpType=8
Op2=16
ResultType=0
link(onResult,4975072:doCompare,[])
}
Add(DoData,6127646,439,190)
{
Data=String(1310)
link(onEventData,10787905:doWork3,[(492,196)])
}
Add(StrCat,4303662,439,141)
{
Str1=" "
link(onStrCat,10787905:doWork2,[])
}
Add(RichEdit,12858706,509,141)
{
Left=9
Top=55
Width=441
Height=285
Font=[Courier New,8,0,0,204]
ScrollBars=3
InsertCRLF=1
}
Add(Convertor,8708395,390,141)
{
Mode=6
link(onResult,4303662:doStrCat,[])
}
Add(HubEx,10787905,488,134)
{
link(onEvent,12858706:doAdd,[])
}
Add(DataToFile,15938334,327,141)
{
link(onGet,8708395:doConvert,[])
link(Stream,11002060:Stream,[(333,85)(326,85)])
}
Add(For,6798934,194,140)
{
End=304
IncludeEnd=1
link(onEvent,5763157:doEvent1,[])
}
Add(Hub,5763157,243,141)
{
OutCount=3
link(onEvent1,2598109:doOperation,[(283,147)(283,105)])
link(onEvent2,15938334:doGet,[])
link(onEvent3,12882683:doOperation,[(283,161)(283,196)])
}
Add(If_else,4975072,390,190)
{
Op2=Integer(15)
link(onTrue,6127646:doData,[])
}
Add(StrCat,3795143,439,99)
{
Str2=":"
link(onStrCat,10787905:doWork1,[(492,105)])
}
Add(HubEx,16570891,289,48)
{
link(onEvent,11002060:doPosition,[(309,61)(309,28)])
}[/code:1]

Хотя еще нужно отимизировать ...

-=Dima=-, Это не мой пример

не отверчивайся....

А вот эта версия еще лучше !

[code:1]Add(MainForm,10130017,-33,189) {
Left=20
Top=105
Width=499
Height=386
}
Add(Button,13285760,-33,35)
{
Left=9
Top=7
Width=220
Caption="открыть"
link(onClick,10347579:doExecute,[])
}
Add(GetDataEx,10498473,37,112)
{
link(Data,11002060:Size,[(50,91)(281,91)])
}
Add(HubEx,11731569,51,133)
{
link(onEvent,6798934:doFor,[])
}
Add(Hub,3185846,471,329)
{
OutCount=3
link(onEvent1,4184291:doWork3,[(540,335)])
link(onEvent2,16570891:doWork3,[(526,342)(526,284)(482,284)(241,284)])
link(onEvent3,11731569:doWork3,[(566,349)(566,240)(55,240)])
}
Add(Edit,5846125,79,35)
{
Left=9
Top=32
Width=441
Font=[Arial,8,0,0,1]
Text="Имя файла"
link(onChange,15327600:doEvent1,[(144,41)(144,49)])
}
Add(Math,15068998,394,336)
{
OpType=9
Op2=4
link(onResult,3185846:doEvent1,[(455,342)(455,335)])
}
Add(ODialog,10347579,30,35)
{
link(onExecute,5846125:doText,[])
}
Add(Convertor,10811591,338,99)
{
Mode=6
Digits=8
link(onResult,3795143:doStrCat,[])
link(Data,6798934:Position,[(344,89)(329,89)(329,185)(148,185)])
}
Add(If_else,15211951,289,99)
{
Op2=Integer(0)
link(onTrue,10811591:doConvert,[])
}
Add(DoData,4636757,310,357)
{
link(onEventData,15068998:doOperation,[(368,363)(368,342)])
link(Data,12325570:Var3,[(316,345)])
}
Add(Edit,15142902,-19,140)
{
Left=234
Top=7
Width=215
Font=[Arial,8,0,0,1]
Text="размер данных"
link(onChange,11731569:doWork2,[(35,146)(35,146)])
link(Str,10498473:Var1,[(-13,121)])
}
Add(Math,5842296,121,294)
{
OpType=10
Op2=4
link(onResult,10069174:doMax,[(179,300)(179,307)])
}
Add(DoData,2372883,58,294)
{
link(onEventData,5842296:doOperation,[])
link(Data,10498473:Var3,[(64,121)])
}
Add(ScrollBar,10069174,205,294)
{
Left=460
Top=60
Width=20
Height=285
Kind=1
Point(doMax)
link(onPosition,7342585:doWork1,[(281,300)])
}
Add(Math,2598109,240,99)
{
OpType=8
Op2=16
ResultType=0
link(onResult,15211951:doCompare,[])
}
Add(MemoryStream,11002060,268,8)
{
Point(doPosition)
}
Add(FileStream,3124149,219,8)
{
Mode=2
Point(doPosition)
link(onLoad,11002060:doCopy,[])
}
Add(Hub,15327600,149,43)
{
OutCount=7
link(onEvent1,11002060:doClear,[(224,49)(224,21)])
link(onEvent2,4184291:doWork2,[(214,56)(214,258)])
link(onEvent3,3124149:doOpen,[(200,63)(200,14)])
link(onEvent4,3124149:doClose,[(200,70)(200,21)])
link(onEvent5,16570891:doWork2,[(209,77)(209,61)])
link(onEvent6,15142902:doText,[(191,84)(191,117)(-29,117)(-29,146)])
link(onEvent7,2372883:doData,[(191,91)(191,194)(48,194)(48,300)])
}
Add(Math,12882683,275,190)
{
OpType=8
Op2=16
ResultType=0
link(onResult,4975072:doCompare,[])
}
Add(GetDataEx,11376439,457,98)
{
link(Data,1418242:Value,[(470,95)(463,95)])
}
Add(StrCat,4303662,387,141)
{
Str1=" "
link(onStrCat,10787905:doWork2,[])
}
Add(StrCat,639050,457,141)
{
link(onStrCat,1418242:doValue,[(499,147)(499,114)(447,114)(447,62)])
link(Str1,11376439:Var1,[(463,107)])
}
Add(Convertor,8708395,338,141)
{
Mode=6
link(onResult,4303662:doStrCat,[])
}
Add(HubEx,10787905,436,134)
{
link(onEvent,639050:doStrCat,[(451,147)(451,147)])
}
Add(DataToFile,15938334,275,141)
{
link(onGet,8708395:doConvert,[])
link(Stream,11002060:Stream,[(281,85)(274,85)])
}
Add(For,6798934,142,140)
{
End=304
IncludeEnd=1
link(onEvent,5763157:doEvent1,[])
link(onStop,7281195:doOperation,[(224,153)(224,245)])
}
Add(Hub,5763157,191,140)
{
OutCount=4
link(onEvent1,2598109:doOperation,[(231,146)(231,105)])
link(onEvent2,15938334:doGet,[])
link(onEvent3,12882683:doOperation,[(231,160)(231,196)])
}
Add(If_else,4975072,338,190)
{
Op2=Integer(15)
link(onTrue,4540781:doEvent1,[])
}
Add(StrCat,3795143,387,99)
{
Str2=":"
link(onStrCat,10787905:doWork1,[(440,105)])
}
Add(HubEx,16570891,237,48)
{
link(onEvent,11002060:doPosition,[(257,61)(257,28)])
}
Add(Hub,4540781,405,190)
{
link(onEvent1,8440203:doWork1,[(482,196)])
link(onEvent2,1418242:doClear,[(447,203)(447,69)])
}
Add(Memory,1418242,457,56)
{
Default=String()
}
Add(DoData,2842396,506,188)
{
link(onEventData,5265120:doAdd,[(557,194)(557,174)])
link(Data,11376439:Var3,[(512,107)])
}
Add(HubEx,8440203,478,189)
{
link(onEvent,2842396:doData,[(496,202)(496,194)])
}
Add(ListBox,5265120,576,168)
{
Top=60
Width=455
Height=285
Color=12639424
Font=[Courier New,8,0,0,1]
link(onKeyDown,1319652:doCase,[(618,188)(618,327)(69,327)(69,447)])
}
Add(Math,7281195,275,239)
{
OpType=8
Op2=16
ResultType=0
link(onResult,5882437:doCompare,[])
}
Add(If_else,5882437,338,239)
{
Op2=Integer(15)
link(onFalse,8440203:doWork3,[(482,252)])
}
Add(Case,1319652,79,441)
{
Value=Integer(38)
link(onNextCase,13394395:doCase,[])
link(onTrue,10298790:doOperation,[(120,454)(120,391)])
}
Add(Case,13394395,149,441)
{
Value=Integer(40)
link(onTrue,14050277:doOperation,[])
}
Add(GetDataEx,12325570,242,336)
{
link(Data,10069174:Position,[(255,333)(211,333)])
}
Add(Math,10298790,130,385)
{
OpType=1
Op2=1
link(onResult,13315088:doWork2,[])
link(Op1,12325570:Var1,[(136,345)])
}
Add(HubEx,13315088,249,378)
{
link(onEvent,2687458:doEvent1,[(267,391)(267,468)])
}
Add(Math,14050277,207,448)
{
Op2=1
link(onResult,13315088:doWork3,[(253,454)])
link(Op1,12325570:Var2,[(213,399)(255,399)])
}
Add(Hub,2687458,277,462)
{
link(onEvent1,10069174:doPosition,[(327,468)(327,430)(195,430)(195,300)])
link(onEvent2,7342585:doWork3,[(319,475)(319,411)(281,411)])
}
Add(HubEx,7342585,277,343)
{
link(onEvent,4636757:doData,[(298,356)(298,363)])
}
Add(HubEx,4184291,536,245)
{
link(onEvent,5265120:doClear,[(560,258)(560,181)])
}[/code:1]

Galkov, До делай пожалуйста (если не влом) ASCII колонку там нужен фильтр на видимые символы повесить .
(Эх не хватает в ХайАсме элементов для работы с множествами ! )

Зачем

Через значит ИК придется ...
(Фильтр нужен чтобы служебные символы не портили изображение .)

Или вопрос вообще зачем въювер ?
Так ведь довольно часто дамп изнутри своих программ смотреть нужно и не только мне !

Зы
Почему только у Лист Бокса onKeyDown нормально работает ?

вот еще вариантик:
[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]

На все бы вопросы так активно обясняли. Типа соревнование, у кого проще и лучше.

Вот что значит "мозговой штурм" !

И при этом, совершенно не факт, что именно это и нужно было автору топика