Вверх ↑
Ответов: 1925
Рейтинг: 172
#1: 2018-02-11 19:59:12 ЛС | профиль | цитата
1. CalcSymbArr.rar
2.
nesco писал(а):
2-- компонент Between

3. Без всяких компонентов:
Add(StrCat,5207725,329,308)
{
link(Str1,5207725:Result,[(335,296)(323,296)(323,352)(335,352)])
}
4. CurDirAndUserObj.rar (тоже реализуется на штатных, но часто удобнее)
5. Не смог найти. Можно так:
Add(Edit,10681569,329,217)
{
Left=100
Top=65
Width=130
Text="0"
DataType=2
link(onChange,16732761:doCompare,[])
}
Add(If_else,16732761,392,217)
{
Type=2
link(onTrue,7047508:doData,[])
link(Op2,645559:Var2,[])
}
Add(VisualStrings,2514421,399,168)
{
Lines=#2:10|
}
Add(DoData,7047508,448,217)
{
Data=Integer(0)
link(onEventData,10681569:doText,[(492,223)(492,211)(317,211)(317,223)])
link(Data,645559:Var3,[(454,201)])
}
Add(GetDataEx,645559,399,196)
{
link(Data,2514421:Text,[])
}
6, 7.
nesco писал(а):
компонент Str_Enum


Компоненты делал, когда впервые научился писать на Object Pascal и чуть ли не каждый участок схемы стремился переделать в код. Сейчас уже не страдаю этим: зачастую на компонентах быстрее и понятнее.
карма: 9
0
файлы: 2CalcSymbArr.rar [1KB] [573], CurDirAndUserObj.rar [1.6KB] [595]
Редактировалось 1 раз(а), последний 2018-02-11 19:59:58