Вверх ↑
Ответов: 416
Рейтинг: 57
#1: 2010-02-02 00:23:54 ЛС | профиль | цитата
Я не против удалить. Но как их все удалить, они не по порядку, а в перемешку с кодом. Пробовал в ручную, но после 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)
{
}


Голова уже не варит.
карма: 0

1
Голосовали:Administrator