Вот так можно
Add(MainForm,6119550,84,294) { Width=219 Height=120 BorderStyle=1 } Add(SDialog,4071568,308,203) { Filter="Tack |*.Tack|" link(onExecute,12759610:doWork2,[]) } Add(ODialog,13375160,133,154) { link(onExecute,5898549:doEvent1,[]) } Add(Button,14769553,84,154) { Left=5 Top=5 Caption="Открыть" link(onClick,13375160:doExecute,[]) } Add(StyleXP,7085062,308,154) { } Add(Edit,8924868,252,154) { Left=60 Top=5 Width=145 Text="" } Add(ZLIB,1359483,252,266) { link(onStream,5636311:doCopyFromStream,[]) link(Stream,16168829:Stream,[]) } Add(ChildGroupBox,15669353,133,294) { link(onEvent1,1259856:doEvent1,[(173,300)(173,265)]) link(onEvent2,1372797:doEvent1,[]) } BEGIN_SDK Add(EditMulti,16142824,21,21) { EventCount=2 Width=258 Height=81 } Add(GroupBox,14070160,91,28) { Left=5 Top=30 Width=200 Caption="Манипуляции с файлом" } Add(Button,6514738,133,28) { Left=5 Top=15 Width=80 Caption="Сжать" link(onClick,16142824:onEvent1,[(243,34)(243,27)]) } Add(Button,5732170,133,63) { Left=90 Top=15 Width=80 Caption="Восстановить" link(onClick,16142824:onEvent2,[(243,69)(243,34)]) } END_SDK Add(FileStream,16168829,252,203) { link(FileName,8924868:Text,[]) } Add(Hub,5898549,182,154) { link(onEvent1,8924868:doText,[]) link(onEvent2,16168829:doOpen,[(221,167)(221,209)]) } Add(Hub,1259856,182,259) { OutCount=3 link(onEvent1,4071568:doExecute,[(295,265)(295,209)]) link(onEvent2,1359483:doCompress,[]) link(onEvent3,9251746:doWork2,[]) } Add(FileStream,5636311,385,252) { Mode=1 AutoCopy=0 Point(doCopyFromStream) link(FileName,9472851:Value,[]) } Add(Memory,9472851,385,203) { } Add(Hub,1372797,182,301) { OutCount=3 link(onEvent1,13211560:doExecute,[]) link(onEvent2,1359483:doDeCompress,[(243,314)(243,279)]) link(onEvent3,9251746:doWork3,[(221,321)]) } Add(HubEx,9251746,217,266) { Angle=3 link(onEvent,16168829:doClose,[(221,216)]) } Add(SDialog,13211560,308,301) { Filter="" link(onExecute,12759610:doWork3,[(361,307)]) } Add(HubEx,12759610,357,196) { link(onEvent,9472851:doValue,[]) }
Но надо научится различать, что строка -- это не файловый поток
|