Выделение строки

Форумы Между деломВыделение строки ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 29

Рейтинг: 3

#1: 2013-09-29 01:39:36 ЛС | профиль | цитата

Как сделать, чтобы при выделении строки с данными, данные из последнего столбца, т.е. Сот.номер, копировались в нижнее поле, выбрав другую строку, данные копировались через запятую и получались номера сотовых через запятую (123456789,123897654,3215646548,312568498......)

Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,21,105)
{
 Width=901
 Height=581
 link(onActivate,786878:doAdd,[(156,111)(156,195)])
}
Add(StringTable,786878,259,189)
{
 Width=885
 Height=435
 Align=2
 Columns=#10:Ф.И.О.=500|13:Должность=450|14:Раб. номер=200|14:Сот. номер=200|
 link(Str,5449547:Text,[])
}
Add(Memo,11217537,364,189)
{
 Top=435
 Width=885
 Height=450
 Align=2
}
Add(RichEdit,5449547,259,98)
{
 Left=220
 Top=105
 Visible=1
 Strings=#49:Иванов Иван Иванович;Трубочист;123123;89063123123|
}