Add(MainForm,16323570,371,154)
{
Width=697
Height=397
Position=1
}
Add(Button,14802015,315,70)
{
Left=20
Top=20
Caption="Открыть"
link(onClick,5824310:doExecute,[])
}
Add(Edit,15645834,448,168)
{
Left=90
Top=60
Width=225
Text="Данные для поиска"
}
Add(ODialog,5824310,378,70)
{
Filter="txt*.txt*"
FileName="test"
link(onExecute,7571286:doText,[])
}
Add(Memo,2010269,567,42)
{
Left=20
Top=120
Width=410
Height=205
}
Add(Edit,7571286,434,70)
{
Left=85
Top=20
Width=160
Text=""
link(onChange,2010269:doLoad,[])
}
Add(Button,12772001,378,245)
{
Left=15
Top=65
Width=60
Caption="Найти"
link(onClick,15085290:doSearch,[])
}
Add(Hub,10353095,511,49)
{
link(onEvent1,2010269:doText,[(553,55)(553,69)])
link(onEvent2,2010269:doSave,[(542,62)(542,83)])
}
Add(SearchInFile,15085290,434,245)
{
link(onSearch,7688346:doValue,[])
link(FileName,7571286:Text,[])
link(Text,15645834:Text,[(447,226)(454,226)])
}
Add(Memo,3147708,546,231)
{
Left=470
Top=105
Width=180
Height=165
}
Add(Replace,6202889,567,119)
{
DestStr="Данные для замены"
link(onReplace,10353095:doEvent1,[(632,125)(632,18)(499,18)(499,55)])
link(Str,2010269:Text,[])
link(Sub_str,7688346:Value,[(580,107)(617,107)(617,294)(496,294)])
}
Add(Button,15057539,490,119)
{
Left=340
Top=30
Caption="Заменить"
link(onClick,6202889:doReplace,[])
}
Add(Memory,7688346,490,252)
{
link(onData,3147708:doText,[])
}
Ответов: 1536
Рейтинг: 176
|
|||
GroZID, взяв за основу твою схему, я просто удалял лишние компоненты:
|
|||
карма: 1 |
|