![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 22.12.2010
Сообщений: 9
|
![]()
Приветствую!
Подскажите: после выбора данных из БД и записи их в Мемо записываются они каждая запись с новой строки. Как сделать, чтобы все было в одну строчку? И вобще, сколько символов влезает в Мемо? Плюс в конце нужен. Код:
Последний раз редактировалось Stilet; 25.12.2010 в 12:46. |
![]() |
![]() |
![]() |
#2 | |
Участник клуба
Регистрация: 21.03.2010
Сообщений: 1,508
|
![]() Цитата:
Код:
![]() |
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
![]()
Метод Append добавляет символы "перевода каретки" после добавления каждой строки.
Вместо Append, как это показал xwicked я бы применил свойство Text, а так же проинициализировал бы локальную переменную: Код:
Lines - класс TStrings, а каждая строка в этой коллекции имеет тип string. String, в свою очередь может хранить до 2 Гб информации. Т.е. сколько "влезет" символов будет зависеть только от объема оперативной памяти и поворотливости Windows. |
![]() |
![]() |
![]() |
#4 |
Регистрация: 22.12.2010
Сообщений: 9
|
![]()
Братцы - работает!
Спасибо большое! Кстати: а последний '+' убрать можно? (который к последнему выбранному из БД значению подставляется) |
![]() |
![]() |
![]() |
#5 | |
Форумчанин
Регистрация: 17.09.2010
Сообщений: 229
|
![]() Цитата:
Код:
Правильно заданный вопрос - половина ответа!
|
|
![]() |
![]() |
![]() |
#6 |
Регистрация: 22.12.2010
Сообщений: 9
|
![]()
Чего-то не работает...
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 17.09.2010
Сообщений: 229
|
![]()
Правильно заданный вопрос - половина ответа!
|
![]() |
![]() |
![]() |
#8 |
Регистрация: 22.12.2010
Сообщений: 9
|
![]()
procedure TForm3.Button1Click(Sender: TObject); // выбор адресов Е-маил и добавление в мемо
var s: string; begin MainForm.Table1.First; while not MainForm.Table1.Eof do begin s := s + MainForm.Table1.FieldByName('semail ').value + ', '; MainForm.Table1.Next; if s[Length(s)] = ', ' then Delete(s, Length(s), 1) end; Memo2.Lines.Text:=s; end; |
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
пробуйте:
Код:
|
![]() |
![]() |
![]() |
#10 |
Регистрация: 22.12.2010
Сообщений: 9
|
![]()
Ура! Заработала!!!
Спасибо большое! |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Колличество строк в Мемо | Ceme4kin | Общие вопросы C/C++ | 2 | 09.09.2010 13:45 |
Получить кол-во строк в Мемо | MyLastHit | Общие вопросы Delphi | 2 | 22.08.2010 18:41 |
перенос строк удаление ненужных строк | HelperAwM | Microsoft Office Excel | 5 | 26.06.2010 18:42 |
Мемо перенос строк | MSD | Помощь студентам | 1 | 16.05.2010 18:22 |
количество заполненных строк в МЕМО | designer999 | Общие вопросы Delphi | 5 | 15.04.2010 13:18 |