Пытался, но наверняка не правильно:
Add(MainForm,2953706,168,63)
{
Width=562
Height=629
}
Add(Edit,15659177,315,126)
{
Left=5
Top=30
Width=540
Text=""
link(onChange,1473513:doWork2,[])
}
Add(Edit,9823317,322,168)
{
Left=5
Top=85
Width=540
Text=""
link(onChange,1473513:doWork3,[(367,174)])
}
Add(Type_Create,9672655,308,210)
{
Vars=#4:File|85:Lic=D:ПрограмируемПишем программыСоздание инсталяторовЛицензионное соглашение.txt|73:Com=D:ПрограмируемПишем программыСоздание инсталяторовОсобенности.txt|
link(onCreate,16632832:doLoad,[])
link(Lic,15659177:Text,[])
link(Com,9823317:Text,[])
}
Add(FileStream,16378432,707,112)
{
link(onLoad,7209227:doEvent1,[])
}
Add(Type_Array,16632832,364,210)
{
UseName=0
Point(Name)
Point(NameArray)
Point(doUseName)
link(onLoad,15012779:doEnum,[])
}
Add(ArrayEnum,15012779,427,210)
{
link(onItem,16378432:doOpen,[(486,216)(486,118)])
link(onEndEnum,10958036:doEvent1,[])
link(Array,13772963:Array,[])
}
Add(Counter,5683992,609,203)
{
Max=100000
link(onNext,16580548:doStrCat,[])
}
Add(StrCat,16580548,658,203)
{
Str1="Files"
link(onStrCat,12090577:doAdd,[])
}
Add(LineBreakEx,7526858,364,259)
{
Caption="array"
Type=3
link(_Data,16632832:Array,[])
}
Add(MT_AddData,12090577,700,203)
{
link(onAdd,1179144:doValue,[])
link(Data1,10081507:Var,[])
link(Data2,16378432:Stream,[])
}
Add(MT_MTArrayRW,13516543,798,189)
{
link(Array,10096108:getVar,[])
link(Value,1179144:Value,[(818,175)(841,175)(841,247)(755,247)])
}
Add(MT_Memory,1179144,749,203)
{
link(onData,13516543:doAdd,[])
}
Add(LineBreakEx,10096108,798,154)
{
Caption="array"
Type=2
}
Add(LineBreak,12604177,658,245)
{
Caption="name"
Type=1
link(Data,16580548:Result,[])
Primary=[10081507,42,-70]
}
Add(Hub,7209227,749,112)
{
link(onEvent1,16378432:doClose,[(770,118)(770,101)(695,101)(695,125)])
link(onEvent2,5683992:doNext,[(775,125)(775,163)(597,163)(597,209)])
}
Add(Type_MultiData,1828217,609,322)
{
Vars=#9:##onError|6:Files1|6:Files2|
Point(GType)
link(Files1,8784943:doGet,[])
link(Files2,9987174:doGet,[(660,342)(660,391)])
link(GType,9672655:FType,[(615,304)(314,304)])
}
Add(Hub,10958036,511,217)
{
OutCount=3
link(onEvent1,5683992:doReset,[])
link(onEvent2,1828217:doSeparate,[(567,230)(567,328)])
link(onEvent3,3609753:doData,[(543,237)(543,482)])
}
Add(LineBreakEx,10729255,609,448)
{
Caption="array"
Type=2
}
Add(HilightMemo,9735630,735,301)
{
Left=5
Top=180
Width=520
Height=130
Font=[Courier New,8,0,0,1]
HilightFont=[Courier New,8,0,0,1]
}
Add(MT_MTArrayRW,11358255,609,476)
{
link(onRead,11137512:doGet,[])
link(Array,10729255:getVar,[])
}
Add(DataToFile,11137512,672,469)
{
link(onGet,12532478:doAdd,[(720,475)(720,476)])
link(Stream,11358255:Item,[(678,464)(646,464)(646,520)(615,520)])
}
Add(DataToFile,9987174,679,378)
{
Type=5
link(onGet,12572114:doConvert,[])
}
Add(DataToFile,8784943,679,322)
{
Type=5
link(onGet,9735630:doAdd,[(719,328)(719,307)])
}
Add(DoData,3609753,560,476)
{
Data=String(Files1)
link(onEventData,11358255:doRead,[])
}
Add(Convertor,12572114,728,378)
{
Mode=4
link(onResult,1003043:doAdd,[])
}
Add(HilightMemo,12532478,737,470)
{
Left=5
Top=460
Width=520
Height=130
Font=[Courier New,8,0,0,1]
HilightFont=[Courier New,8,0,0,1]
}
Add(InfoTip,16344736,504,273)
{
Info=#29:Наверно неправильно извлекаю?|
Width=344
Height=270
}
Add(InfoTip,13047264,581,70)
{
Info=#23:Или неправильно заношу?|
Width=288
Height=193
}
Add(Memo,1003043,784,378)
{
Left=5
Top=320
Width=520
Height=130
}
Add(Button,10965101,203,126)
{
Left=5
Top=5
Width=105
Caption="Выбрать файл1"
link(onClick,494420:doExecute,[])
}
Add(ODialog,494420,259,126)
{
Filter="txtfile|*.txt*"
link(onExecute,15659177:doText,[])
}
Add(Button,618268,203,168)
{
Left=5
Top=60
Width=105
Caption="Выбрать файл2"
link(onClick,7185496:doExecute,[])
}
Add(ODialog,7185496,259,168)
{
Filter="txtfile|*.txt*"
link(onExecute,9823317:doText,[])
}
Add(Button,16501287,203,210)
{
Left=5
Top=110
Width=105
Caption="Создать тип"
link(onClick,9672655:doCreate,[])
}
Add(StrList,13772963,413,126)
{
}
Add(HubEx,1473513,363,126)
{
link(onEvent,13772963:doAdd,[])
}