[lmikle]

Edit1.Text := ListBox1.Items.Text;

но тут у тебя будут символы перевода строки болтаться. Если их надо убрать, то циклом. Или stringReplace.

[Kerby]

Конечно не очень хорошо, что видны эти символы перевода строки. Не хочу наглеть, но сам не догоню, как их убрать. Знания к сожалению поверхностные. Знаю только то, что сам пробовал. Было бы идеально заменить вертикальные черты на точку с запятой. Это была бы просто сказка. Обещаю, больше грузить не буду!

[lmikle]

Я же сказал - либо собираешь по элементам (в цикле), либо так:

Edit1.Text := StringReplace(ListBox1.Items.Text,#13#10,'',[]);

Если с параметрами не напутал (пишу по памяти - посмотри в хелпе), то вызов функции заменить все символы перевода строки на пустой символ, т.е. удалит их. Для понимания погляди в хелпе еще TStringList.Text, т.к. свойство Items у TListBox и есть TStringList, хотя и объявлен как TStrings.

[Kerby]

Попробовал со StringReplace. Первый символ перевода убрался, остальные по-прежнему. Я сам попробую разобраться с параметрами. Спасибо большое. Очень выручили!!!

[lmikle]

А, ну да, там последним параметром в кв. скобках должно быть что-то типа srReplaceAll. Хелп по функции глянь.

[Kerby]

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

[lmikle]

Ну, там тип TReplaceFlags д.б. ссылкой. Кликаешь на нее и смотришь что там есть. Там д.б. 2 значения - неучитывать регистр и заменить все. Тебе нужно указать второе.

[Kerby]

У меня теперь вместо разделителей ставится точка с запятой. Как раз то, что нжно!!! Спасибо всем!!!

[Kerby]

Появилось новое требование к программе. В список ListBox должны вноситься не все значения поля (Имя), а лишь выбранные. Здесь нашел пример кода для CheckBox'a. В данном случае он должен находится напротив каждой строки в таблице. Пользователь отмечает нужные имена галочкой и потом уже формируется список из выбранных имен. Я пробовал пример кода для CheckBox вписать в программу, но результат нулевой. Буду разбираться с этим дальше. Может кто подскажет как организовать цикл или какое условие нужно добавить, чтобы в списке оказывались только выбранные пользователем имена.

[Phedor]

Сообщение от Kerby

Появилось новое требование к программе. В список ListBox должны вноситься не все значения поля (Имя), а лишь выбранные. Здесь нашел пример кода для CheckBox'a. В данном случае он должен находится напротив каждой строки в таблице. Пользователь отмечает нужные имена галочкой и потом уже формируется список из выбранных имен. Я пробовал пример кода для CheckBox вписать в программу, но результат нулевой. Буду разбираться с этим дальше. Может кто подскажет как организовать цикл или какое условие нужно добавить, чтобы в списке оказывались только выбранные пользователем имена.

Сделай два списка (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;
...

[Kerby]

Мне будет сложновато сразу догнать что тут к чему. А времени осталось совсем мало. Если не трудно, можно получить какой-то комментарий к коду. Мне будет гораздо легче уловить суть. Может есть какие-то идеи по использованию CheckBox? Спасибо!

[Kerby]

Хотелось бы все таки разобраться с примером использования CheckBox'a в DBGrid. Я то скачал его с этого сайта. По-любому кто-то да знает что к чему. В любом случае, вдруг кто-то предложит что-то более простое в плане реализации. Буду этому рад. Главное, чтоб принцип работы программы сохранился.

[chandler]

http://depositfiles.com/ru/files/5543995