|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2010, 18:13 | #1 |
Регистрация: 22.12.2010
Сообщений: 9
|
Перенос строк в Мемо
Приветствую!
Подскажите: после выбора данных из БД и записи их в Мемо записываются они каждая запись с новой строки. Как сделать, чтобы все было в одну строчку? И вобще, сколько символов влезает в Мемо? Плюс в конце нужен. Код:
Последний раз редактировалось Stilet; 25.12.2010 в 12:46. |
23.12.2010, 19:58 | #2 | |
Участник клуба
Регистрация: 21.03.2010
Сообщений: 1,508
|
Цитата:
Код:
|
|
23.12.2010, 20:09 | #3 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Метод Append добавляет символы "перевода каретки" после добавления каждой строки.
Вместо Append, как это показал xwicked я бы применил свойство Text, а так же проинициализировал бы локальную переменную: Код:
Lines - класс TStrings, а каждая строка в этой коллекции имеет тип string. String, в свою очередь может хранить до 2 Гб информации. Т.е. сколько "влезет" символов будет зависеть только от объема оперативной памяти и поворотливости Windows. |
24.12.2010, 09:57 | #4 |
Регистрация: 22.12.2010
Сообщений: 9
|
Братцы - работает!
Спасибо большое! Кстати: а последний '+' убрать можно? (который к последнему выбранному из БД значению подставляется) |
25.12.2010, 03:46 | #5 | |
Форумчанин
Регистрация: 17.09.2010
Сообщений: 229
|
Цитата:
Код:
Правильно заданный вопрос - половина ответа!
|
|
30.12.2010, 11:10 | #6 |
Регистрация: 22.12.2010
Сообщений: 9
|
Чего-то не работает...
|
31.12.2010, 16:36 | #7 |
Форумчанин
Регистрация: 17.09.2010
Сообщений: 229
|
Правильно заданный вопрос - половина ответа!
|
11.01.2011, 11:26 | #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; |
11.01.2011, 15:34 | #9 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
пробуйте:
Код:
|
11.01.2011, 15:41 | #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 |