г. Гость Алексей, Надо очищать StrList.
------------ Дoбавленo в 20.30:
Add(MainForm,2953706,63,203) { Height=125 Position=1 } Add(SearchInFile,11930633,217,175) { Text="DISPLAY_LENGTH:" Point(onEnd) link(onNotSearch,4996106:doWork2,[]) link(onSearch,11481593:doString,[]) link(FileName,5732926:Var2,[]) link(Text,7203:Var1,[(230,153)]) link(onEnd,3378209:doEvent1,[(255,195)(255,216)]) } Add(Edit,5222673,217,98) { Left=5 Top=20 Width=135 } Add(Edit,13854287,273,98) { Left=145 Top=20 Width=115 Text="DISPLAY_LENGTH:" } Add(Edit,9546985,315,98) { Left=265 Top=20 } Add(Button,6769630,63,161) { Left=45 Top=50 link(onClick,8735501:doEvent1,[]) } Add(StrList,12348525,427,175) { link(FileName,5732926:Var3,[(440,138)]) } Add(HubEx,4996106,378,175) { link(onEvent,12348525:doAdd,[]) } Add(GetDataEx,5732926,217,133) { link(Data,5222673:Text,[]) } Add(FormatStr,11481593,294,182) { Mask="[%1:%2]" link(onFString,4996106:doWork3,[(382,188)]) link(Str1,7203:Var3,[(300,153)]) link(Str2,9546985:Text,[(307,156)(321,156)]) } Add(GetDataEx,7203,273,148) { link(Data,13854287:Text,[]) } Add(Label,8365245,61,98) { Left=5 Width=311 Height=17 Caption="Полный путь к файлу Параметр Значение" } Add(Label,1127888,448,70) { Left=150 Top=50 Width=86 Height=17 Visible=1 Caption="Файл сохранён." Point(doVisible) } Add(Hub,3378209,336,210) { link(onEvent1,12348525:doSave,[]) link(onEvent2,1254962:doWork2,[(366,223)(366,90)]) } Add(Hub,8735501,105,161) { OutCount=3 link(onEvent1,1254962:doWork1,[(130,167)(130,83)]) link(onEvent2,12348525:doClear,[(410,174)(410,188)]) link(onEvent3,11930633:doSearch,[]) } Add(ChanelToIndex,1254962,378,77) { link(onIndex,1127888:doVisible,[]) }
|