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,[]) }
|