|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Edit1.Text := ListBox1.Items.Text;
но тут у тебя будут символы перевода строки болтаться. Если их надо убрать, то циклом. Или stringReplace. |
#17
|
|||
|
|||
Спасибо!
Конечно не очень хорошо, что видны эти символы перевода строки. Не хочу наглеть, но сам не догоню, как их убрать. Знания к сожалению поверхностные. Знаю только то, что сам пробовал. Было бы идеально заменить вертикальные черты на точку с запятой. Это была бы просто сказка. Обещаю, больше грузить не буду!
|
#18
|
|||
|
|||
Я же сказал - либо собираешь по элементам (в цикле), либо так:
Edit1.Text := StringReplace(ListBox1.Items.Text,#13#10,'',[]); Если с параметрами не напутал (пишу по памяти - посмотри в хелпе), то вызов функции заменить все символы перевода строки на пустой символ, т.е. удалит их. Для понимания погляди в хелпе еще TStringList.Text, т.к. свойство Items у TListBox и есть TStringList, хотя и объявлен как TStrings. |
#19
|
|||
|
|||
ОК
Попробовал со StringReplace. Первый символ перевода убрался, остальные по-прежнему. Я сам попробую разобраться с параметрами. Спасибо большое. Очень выручили!!!
|
#20
|
|||
|
|||
А, ну да, там последним параметром в кв. скобках должно быть что-то типа srReplaceAll. Хелп по функции глянь.
|
#21
|
|||
|
|||
Вот что в хэлпе...
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
|
#22
|
|||
|
|||
Ну, там тип TReplaceFlags д.б. ссылкой. Кликаешь на нее и смотришь что там есть. Там д.б. 2 значения - неучитывать регистр и заменить все. Тебе нужно указать второе.
|
#23
|
|||
|
|||
Я прошарил!!!
У меня теперь вместо разделителей ставится точка с запятой. Как раз то, что нжно!!! Спасибо всем!!!
|
#24
|
|||
|
|||
Снова прошу помощи!!!
Появилось новое требование к программе. В список ListBox должны вноситься не все значения поля (Имя), а лишь выбранные. Здесь нашел пример кода для CheckBox'a. В данном случае он должен находится напротив каждой строки в таблице. Пользователь отмечает нужные имена галочкой и потом уже формируется список из выбранных имен. Я пробовал пример кода для CheckBox вписать в программу, но результат нулевой. Буду разбираться с этим дальше. Может кто подскажет как организовать цикл или какое условие нужно добавить, чтобы в списке оказывались только выбранные пользователем имена.
|
#25
|
|||
|
|||
Цитата:
Сделай два списка (ListBox). В первом будут адреса из базы, во втором отобранные. При щелчке перебрасывай во второй список. Если хочешь в одном, то при выборе в ListBox: Код:
... SelectedMails: string; ... procedure ListBox.... begin if (ListBox.ItemIndex<>-1) and (pos(ListBox[ListBox.ItemIndex], SelectedMails)=0) then SelectedMails := SelectedMails+ListBox[ListBox.ItemIndex]+'; '; end; ... |
#26
|
|||
|
|||
Попробую разобраться.
Мне будет сложновато сразу догнать что тут к чему. А времени осталось совсем мало. Если не трудно, можно получить какой-то комментарий к коду. Мне будет гораздо легче уловить суть. Может есть какие-то идеи по использованию CheckBox? Спасибо!
|
#27
|
|||
|
|||
Больше никаких идей?
Хотелось бы все таки разобраться с примером использования CheckBox'a в DBGrid. Я то скачал его с этого сайта. По-любому кто-то да знает что к чему. В любом случае, вдруг кто-то предложит что-то более простое в плане реализации. Буду этому рад. Главное, чтоб принцип работы программы сохранился.
|
#28
|
|||
|
|||
Программирование баз данных в Delphi 7 книга
|