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)
{
}
Ответов: 413
Рейтинг: 57
|
|||
Я не против удалить. Но как их все удалить, они не по порядку, а в перемешку с кодом. Пробовал в ручную, но после 15 минут плюнул. Попробовал програмку написать для поиска строки, она уже 10 минут работает и не пойму, либо повисла либо я ее не правильно сделал.
|
|||
карма: 0 |
| ||
Голосовали: | Administrator |