Я не против удалить. Но как их все удалить, они не по порядку, а в перемешку с кодом. Пробовал в ручную, но после 15 минут плюнул. Попробовал програмку написать для поиска строки, она уже 10 минут работает и не пойму, либо повисла либо я ее не правильно сделал.
Add(MainForm,2953706,21,105) { Width=1116 Height=788 } Add(Edit,15563674,238,21) { Left=155 Top=10 Width=890 } Add(Button,13555168,14,14) { Left=25 Top=10 Width=100 Caption="Открыть файл" link(onClick,8982167:doExecute,[]) } Add(Button,14810218,203,287) { Left=990 Top=710 Width=65 Caption="Сохранить" link(onClick,11333225:doExecute,[]) } Add(Button,12136896,140,224) { Left=25 Top=705 Width=180 Caption="Найти строку и удалить" link(onClick,1912526:doEnum,[]) } Add(ODialog,8982167,84,14) { Filter="(.txt)|*.txt|" link(onExecute,1892292:doEvent1,[]) } Add(ArrayEnum,1912526,196,224) { link(onItem,13397390:doCompare,[]) link(Array,9540987:Strings,[]) } Add(Hub,1892292,133,14) { link(onEvent1,9399077:doLoad,[(159,20)(159,44)(134,44)(134,69)]) link(onEvent2,15563674:doText,[]) } Add(Memo,16004103,322,224) { Left=125 Top=390 Width=935 Height=290 } Add(StrMask,13397390,245,224) { Mask="rep=98" link(onFalse,16004103:doAdd,[]) } Add(SDialog,11333225,259,287) { link(onExecute,16004103:doSave,[(307,293)(307,265)]) } Add(MTStrTbl,6108594,350,63) { Left=125 Top=60 Width=935 Height=305 Name="(empty)" Columns=#11:Столбцы=400| } Add(MST_RowAction,14382624,196,63) { } Add(MST_Load,9399077,146,63) { Delimiter=" " ColNameHeader=1 link(onLoad,14382624:doRowAction,[]) } Add(MST_ArrayRows,9540987,196,168) { }
Голова уже не варит.
|