2.
nesco писал(а):
2-- компонент Between 3. Без всяких компонентов:
Add(StrCat,5207725,329,308)
{
link(Str1,5207725:Result,[(335,296)(323,296)(323,352)(335,352)])
}
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,[])
}
nesco писал(а):
компонент Str_EnumКомпоненты делал, когда впервые научился писать на Object Pascal и чуть ли не каждый участок схемы стремился переделать в код. Сейчас уже не страдаю этим: зачастую на компонентах быстрее и понятнее.