Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 20.05.2008, 20:07
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,051
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Edit1.Text := ListBox1.Items.Text;

но тут у тебя будут символы перевода строки болтаться. Если их надо убрать, то циклом. Или stringReplace.
Ответить с цитированием
  #17  
Старый 20.05.2008, 20:15
Kerby Kerby вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 20
Репутация: 10
По умолчанию Спасибо!

Конечно не очень хорошо, что видны эти символы перевода строки. Не хочу наглеть, но сам не догоню, как их убрать. Знания к сожалению поверхностные. Знаю только то, что сам пробовал. Было бы идеально заменить вертикальные черты на точку с запятой. Это была бы просто сказка. Обещаю, больше грузить не буду!
Ответить с цитированием
  #18  
Старый 20.05.2008, 20:19
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,051
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

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

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

Если с параметрами не напутал (пишу по памяти - посмотри в хелпе), то вызов функции заменить все символы перевода строки на пустой символ, т.е. удалит их. Для понимания погляди в хелпе еще TStringList.Text, т.к. свойство Items у TListBox и есть TStringList, хотя и объявлен как TStrings.
Ответить с цитированием
  #19  
Старый 20.05.2008, 20:28
Kerby Kerby вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 20
Репутация: 10
По умолчанию ОК

Попробовал со StringReplace. Первый символ перевода убрался, остальные по-прежнему. Я сам попробую разобраться с параметрами. Спасибо большое. Очень выручили!!!
Ответить с цитированием
  #20  
Старый 20.05.2008, 20:32
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,051
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А, ну да, там последним параметром в кв. скобках должно быть что-то типа srReplaceAll. Хелп по функции глянь.
Ответить с цитированием
  #21  
Старый 20.05.2008, 20:36
Kerby Kerby вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 20
Репутация: 10
По умолчанию Вот что в хэлпе...

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
Ответить с цитированием
  #22  
Старый 20.05.2008, 20:52
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,051
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, там тип TReplaceFlags д.б. ссылкой. Кликаешь на нее и смотришь что там есть. Там д.б. 2 значения - неучитывать регистр и заменить все. Тебе нужно указать второе.
Ответить с цитированием
  #23  
Старый 21.05.2008, 10:53
Kerby Kerby вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 20
Репутация: 10
По умолчанию Я прошарил!!!

У меня теперь вместо разделителей ставится точка с запятой. Как раз то, что нжно!!! Спасибо всем!!!
Ответить с цитированием
  #24  
Старый 21.05.2008, 15:30
Kerby Kerby вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 20
Репутация: 10
По умолчанию Снова прошу помощи!!!

Появилось новое требование к программе. В список ListBox должны вноситься не все значения поля (Имя), а лишь выбранные. Здесь нашел пример кода для CheckBox'a. В данном случае он должен находится напротив каждой строки в таблице. Пользователь отмечает нужные имена галочкой и потом уже формируется список из выбранных имен. Я пробовал пример кода для CheckBox вписать в программу, но результат нулевой. Буду разбираться с этим дальше. Может кто подскажет как организовать цикл или какое условие нужно добавить, чтобы в списке оказывались только выбранные пользователем имена.
Ответить с цитированием
  #25  
Старый 21.05.2008, 16:36
Phedor Phedor вне форума
Начинающий
 
Регистрация: 28.02.2008
Сообщения: 118
Репутация: 21
По умолчанию

Цитата:
Сообщение от 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;
...
Ответить с цитированием
  #26  
Старый 21.05.2008, 16:42
Kerby Kerby вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 20
Репутация: 10
По умолчанию Попробую разобраться.

Мне будет сложновато сразу догнать что тут к чему. А времени осталось совсем мало. Если не трудно, можно получить какой-то комментарий к коду. Мне будет гораздо легче уловить суть. Может есть какие-то идеи по использованию CheckBox? Спасибо!
Ответить с цитированием
  #27  
Старый 21.05.2008, 17:19
Kerby Kerby вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 20
Репутация: 10
По умолчанию Больше никаких идей?

Хотелось бы все таки разобраться с примером использования CheckBox'a в DBGrid. Я то скачал его с этого сайта. По-любому кто-то да знает что к чему. В любом случае, вдруг кто-то предложит что-то более простое в плане реализации. Буду этому рад. Главное, чтоб принцип работы программы сохранился.
Ответить с цитированием
  #28  
Старый 23.05.2008, 20:49
chandler chandler вне форума
Прохожий
 
Регистрация: 23.05.2008
Сообщения: 1
Репутация: 10
По умолчанию Программирование баз данных в Delphi 7 книга

http://depositfiles.com/ru/files/5543995
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:50.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter