Вверх ↑
Этот топик читают: Гость
Ответов: 952
Рейтинг: 4
#1: 2021-02-01 23:01:33 ЛС | профиль | цитата
Нужна помощь. Никак не могу сообразить как это сделать.
В редакторе текста содержится набор фамилий с инициалами. Необходимо в выпадющем списке выбрать фамилию, и по кнопке "Переместить" удалить её из списка фамилий, и поместить её в пустой редактор строк (справа).
Сижу, смотрю на набросок и туплю...
Заранее спасибо за помощь.


Add(MainForm,2953706,196,98)
{
Width=669
Height=390
}
Add(ComboBox,11511824,322,98)
{
Left=55
Top=40
Width=110
Height=21
Strings=#11:Петров П.В.|
Text=""
DataType=1
Point(EditText)
}
Add(Memo,14587335,203,175)
{
Left=55
Top=85
Width=180
Height=100
Strings=#52:Иванов С.П. Петров П.В. Игнатенко О.Т. Гришанов Т.В.|
}
Add(Memo,15495477,448,175)
{
Left=395
Top=90
Width=195
Height=90
}
Add(Button,15564796,413,98)
{
Left=175
Top=40
Width=80
Caption="Переместить"
}


карма: 0

0
Ответов: 1535
Рейтинг: 176
#2: 2021-02-02 00:44:13 ЛС | профиль | цитата
Add(MainForm,14954758,105,224)
{
Width=669
Height=390
link(onCreate,9673172:doWork2,[])
}
Add(ComboBox,11511824,301,84)
{
Left=55
Top=40
Width=110
Height=21
Text=""
Point(EditText)
Point(Index)
}
Add(Memo,14587335,378,175)
{
Left=55
Top=85
Width=180
Height=100
Strings=#12:Иванов С.П. |12:Петров П.В. |15:Игнатенко О.Т. |13:Гришанов Т.В.|
}
Add(Memo,15495477,378,133)
{
Left=395
Top=90
Width=195
Height=90
}
Add(Button,15564796,224,133)
{
Left=175
Top=40
Width=80
Caption="Переместить"
link(onClick,14580365:doEvent1,[])
}
Add(DoData,1273678,161,238)
{
link(onEventData,11511824:doText,[(217,244)(217,111)])
link(Data,14587335:Text,[(167,229)(384,229)])
}
Add(DoData,10967322,308,133)
{
link(onEventData,15495477:doAdd,[])
link(Data,11511824:String,[])
}
Add(DoData,16157821,322,189)
{
link(onEventData,14587335:doDelete,[])
link(Data,11511824:Index,[])
}
Add(Hub,14580365,266,133)
{
OutCount=3
link(onEvent1,10967322:doData,[])
link(onEvent2,16157821:doData,[(299,146)(299,195)])
link(onEvent3,9673172:doWork1,[(292,153)(292,197)(151,197)])
}
Add(HubEx,9673172,147,238)
{
link(onEvent,1273678:doData,[])
}


Add(ComboBox,11511824,357,140)
{
Left=55
Top=40
Width=110
Height=21
Strings=#11:Петров П.В.|
Text=""
DataType=1
Point(EditText)
}
Add(Memo,14587335,301,189)
{
Left=55
Top=85
Width=255
Height=100
Strings=#52:Иванов С.П. Петров П.В. Игнатенко О.Т. Гришанов Т.В.|
link(onChange,15495477:doAdd,[])
}
Add(Memo,15495477,406,189)
{
Left=360
Top=95
Width=195
Height=90
link(Str,14857554:Var3,[(412,180)])
}
Add(Button,15564796,245,252)
{
Left=175
Top=40
Width=80
Caption="Переместить"
link(onClick,3506915:doReplace,[])
}
Add(Replace,3506915,301,252)
{
link(onReplace,14587335:doText,[(345,258)(345,230)(289,230)(289,216)])
link(Str,14587335:Text,[])
link(Sub_str,14857554:Var2,[(314,236)(377,236)])
}
Add(GetDataEx,14857554,371,175)
{
link(Data,11511824:EditText,[])
}


Редактировалось 1 раз(а), последний 2021-02-02 01:47:43
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8921
Рейтинг: 823
#3: 2021-02-02 16:48:27 ЛС | профиль | цитата
user_asm, хранить список ФИО одной строкой, да ещё без разделителей -- будут трудности в дальнейшем
То же, что и у коллеги ser_davkin, чуть добавлена индикация и отсутствие совпадений.
https://forum.hiasm.com/getfile/39207
карма: 19

0
Ответов: 952
Рейтинг: 4
#4: 2021-02-02 21:54:12 ЛС | профиль | цитата
Спасибо всем за помощь!
Да вот как-то не предполагал, что потребуется работа с этим списком. До вчерашнего он меня вполне устраивал и работал где надо.
Надо подумать над разделителями при его формировании.
карма: 0

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