Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26170
Рейтинг: 2127
#16: 2009-07-03 17:56:49 ЛС | профиль | цитата
Немного оптимизировал



Add(MainForm,9736489,245,245)
{
Width=717
Height=430
}
Add(Button,2390559,210,42)
{
Left=400
Top=365
Width=65
TabOrder=-1
Caption="Открыть"
link(onClick,12260279:doEvent1,[])
}
Add(Button,6355258,245,308)
{
Left=258
Top=365
Width=65
TabOrder=-1
Caption="Сохранить"
link(onClick,6308574:doEvent1,[])
}
Add(Memo,14309302,434,231)
{
Left=25
Top=50
Width=650
}
Add(Memo,5598948,497,231)
{
Left=25
Top=155
Width=650
}
Add(Memo,13053085,560,231)
{
Left=25
Top=265
Width=650
}
Add(Hub,6308574,294,308)
{
OutCount=5
link(onEvent1,12263523:doOpen,[(521,314)(521,356)])
link(onEvent2,1197959:doWork1,[])
link(onEvent3,1197959:doWork2,[])
link(onEvent4,1197959:doWork3,[])
link(onEvent5,12263523:doClose,[(323,342)(323,363)])
}
Add(Hub,12260279,259,42)
{
OutCount=5
link(onEvent1,5352795:doOpen,[])
link(onEvent2,16695951:doWork1,[])
link(onEvent3,16695951:doWork2,[])
link(onEvent4,16695951:doWork3,[])
link(onEvent5,5352795:doClose,[(494,76)(494,55)])
}
Add(ChanelToIndex,16695951,301,49)
{
Count=3
link(onIndex,2405694:doValue,[])
}
Add(Memory,2405694,350,49)
{
link(onData,16740639:doConvert,[(462,55)(462,132)])
}
Add(Button,4156387,301,196)
{
Left=328
Top=365
Width=65
TabOrder=-1
Caption="Очичтить"
link(onClick,6845802:doEvent1,[])
}
Add(Hub,6845802,350,196)
{
OutCount=3
link(onEvent1,13053085:doClear,[(550,202)(550,244)])
link(onEvent2,5598948:doClear,[(486,209)(486,244)])
link(onEvent3,14309302:doClear,[(420,216)(420,244)])
}
Add(ChanelToIndex,1197959,336,315)
{
Count=3
link(onIndex,8982596:doEvent1,[])
}
Add(BlockFind,11744227,658,119)
{
IncludeBlock=1
Point(doStartBlock)
Point(doEndBlock)
link(onSearch,4263438:doEvent,[(701,125)(701,102)(338,102)(338,167)])
}
Add(FormatStr,4238245,609,126)
{
DataCount=1
Mask="[%1]"
Point(FString)
link(onFString,11744227:doStartBlock,[])
link(Str1,7368432:Var3,[(615,93)])
}
Add(FormatStr,7965633,595,168)
{
DataCount=1
Mask="[/%1]"
Point(FString)
link(onFString,11744227:doEndBlock,[(646,174)(646,139)])
link(Str1,7368432:Var2,[])
}
Add(Hub,5303028,560,126)
{
OutCount=3
link(onEvent1,4238245:doString,[])
link(onEvent2,7965633:doString,[(584,139)(584,174)])
link(onEvent3,11744227:doSearch,[(590,146)(590,125)])
}
Add(IndexToChanel,4263438,350,161)
{
Count=3
Point(Index)
link(onEvent1,14309302:doText,[(412,167)(412,258)])
link(onEvent2,5598948:doText,[(478,174)(478,258)])
link(onEvent3,13053085:doText,[(541,181)(541,258)])
link(Index,7135355:Var2,[])
}
Add(FormatStr,13132916,427,364)
{
Mask="[%1]%2[/%1]"
link(onFString,3811349:doConvert,[])
link(Str2,7468984:Var,[])
}
Add(FileStream,12263523,539,350)
{
FileName="Probe.txt"
Mode=1
Point(doCopyFromStream)
}
Add(Convertor,3811349,483,364)
{
Mode=12
link(onResult,12263523:doCopyFromStream,[])
}
Add(FileStream,5352795,504,42)
{
FileName="Probe.txt"
Point(doCopyFromStream)
}
Add(Convertor,16740639,504,126)
{
Mode=11
link(onResult,5303028:doEvent1,[])
link(Data,5352795:Stream,[])
}
Add(GetDataEx,7135355,343,84)
{
link(Data,2405694:Value,[])
}
Add(GetDataEx,7368432,588,84)
{
Angle=3
link(Data,7135355:Var3,[])
}
Add(GetIndexData,7468984,434,315)
{
Count=3
link(Data1,14309302:Text,[])
link(Data2,5598948:Text,[(447,295)(503,295)])
link(Data3,13053085:Text,[(454,302)(566,302)])
}
Add(Hub,8982596,385,315)
{
link(onEvent1,7468984:doIndex,[])
link(onEvent2,13132916:doString,[(413,328)(413,370)])
}

карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#17: 2009-07-03 18:50:59 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 09:43:48
карма: 0

0
Ответов: 223
Рейтинг: 24
#18: 2009-07-03 20:33:28 ЛС | профиль | цитата
inside.yaol.ru, Вот еще один метод ,который можна использовать в твоей схеме

code_13986.txt
карма: 0

0
файлы: 1code_13986.txt [1.7KB] [189]
Гость
Ответов: 17029
Рейтинг: 0
#19: 2009-07-03 21:02:03 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 09:43:48
карма: 0

0
Ответов: 3851
Рейтинг: 159
#20: 2009-07-05 14:59:37 ЛС | профиль | цитата
можно ещё посмотреть тему Пакет Windows >> Help >> Замена - посты Galkovа на 2-й и 3-й страницах..
карма: 0
начавший
0
20
Сообщение
...
Прикрепленные файлы
(файлы не залиты)