Вверх ↑
Этот топик читают: Гость
Ответов: 248
Рейтинг: 1
#1: 2026-03-13 00:20:57 ЛС | профиль | цитата
Приветствую! Помогите со схемкой. Есть список строк подобный тому что прикрепляю, в нем записи какие цифры кому принадлежат пофамильно, некоторые значения указаны диапазоном.
Задача: вводя в поле ввода любую цифру на проверку, получить ответ: такая то цифра принадлежит тому то (фамилия).


Add(MainForm,2953706,77,91)
{
Width=481
Height=210
}
Add(StrList,3625523,189,133)
{
Strings=#12:Иванов;3-5,8|15:Петров;6,7,9,10|11:Васечкин;21|9:Петров;22|9:Иванов;25|9:Иванов;30|9:Иванов;35|12:Петров;40-55|14:Васечкин;56-60|14:Васечкин;61-65|11:Васечкин;95|
}
Add(Edit,12995479,301,133)
{
Left=30
Top=25
Width=115
}
Add(Button,7152419,126,196)
{
Left=30
Top=60
Width=115
Caption="Проверить"
}

карма: 1

0
Ответов: 1067
Рейтинг: 221
#2: 2026-03-13 05:53:45 ЛС | профиль | цитата
Gitarist писал(а):
Приветствую! Помогите со схемкой. Есть список строк подобный тому что прикрепляю, в нем записи какие цифры кому принадлежат пофамильно, некоторые значения указаны диапазоном.
Задача: вводя в поле ввода любую цифру на проверку, получить ответ: такая то цифра принадлежит тому то (фамилия).


Add(MainForm,14926462,77,126)
{
Width=481
Height=210
}
Add(StrList,3625523,231,91)
{
Strings=#12:Иванов;3-5,8|15:Петров;6,7,9,10|11:Васечкин;21|9:Петров;22|9:Иванов;25|9:Иванов;30|9:Иванов;35|12:Петров;40-55|14:Васечкин;56-60|14:Васечкин;61-65|11:Васечкин;95|
}
Add(Edit,12995479,588,91)
{
Left=30
Top=25
Width=115
Text=""
DataType=2
}
Add(Button,7152419,133,133)
{
Left=30
Top=60
Width=115
Caption="Проверить"
link(onClick,16433258:doEvent1,[])
}
Add(ArrayEnum,13274055,245,147)
{
link(onItem,15257594:doSplit,[])
link(Array,3625523:Array,[])
}
Add(MultiStrPart,15257594,301,147)
{
Count=1
link(onSplit,14433027:doEnum,[])
}
Add(Str_Enum,14433027,350,147)
{
Delimiter=","
link(onEnum,13928914:doCompare,[])
}
Add(StrMask,13928914,399,147)
{
Mask="*-*"
link(onFalse,1947478:doConvert,[(438,153)(438,104)])
link(onTrue,6565721:doMTString,[])
}
Add(MT_String,6565721,455,140)
{
Delimeter="-"
link(onResult,349166:doFor,[])
}
Add(For,349166,504,140)
{
InData=0
link(onEvent,3768348:doWork2,[])
}
Add(HubEx,3768348,553,140)
{
link(onEvent,2285339:doCompare,[])
}
Add(Convertor,1947478,504,98)
{
Mode=1
link(onResult,3768348:doWork1,[(557,104)])
}
Add(If_else,2285339,581,140)
{
link(onTrue,11884069:doWork2,[])
link(Op2,12995479:Text,[])
}
Add(Label,5085223,665,140)
{
Left=180
Top=65
Width=4
Height=4
Font=[MS Sans Serif,12,0,0,1]
Caption=""
link(Text,15257594:Part1,[(671,131)(657,131)(657,187)(307,187)])
}
Add(Hub,16433258,189,133)
{
OutCount=3
link(onEvent1,15257594:doClear,[(284,139)(284,160)])
link(onEvent2,11884069:doWork3,[(214,146)(214,195)(641,195)])
link(onEvent3,13274055:doEnum,[])
}
Add(HubEx,11884069,637,140)
{
link(onEvent,5085223:doText,[])
}

карма: 20

0
Ответов: 248
Рейтинг: 1
#3: 2026-03-13 11:46:54 ЛС | профиль | цитата
Отлично, спасибо Gunta!
карма: 1

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)