Перенос строк в Мемо

[efen]

Приветствую!

Подскажите: после выбора данных из БД и записи их в Мемо записываются они каждая запись с новой строки. Как сделать, чтобы все было в одну строчку? И вобще, сколько символов влезает в Мемо?
Плюс в конце нужен.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.First;
while not   Table1.Eof do begin
  Memo1.Lines.Append(MainForm.Table1.FieldByName('хххх').value+'+');
  Table1.Next;
end;
end;

Заранее благодарен Вам за потраченное время. Спасибо.

[xwicked]

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

Приветствую!

Подскажите: после выбора данных из БД и записи их в Мемо записываются они каждая запись с новой строки. Как сделать, чтобы все было в одну строчку? И вобще, сколько символов влезает в Мемо?
Плюс в конце нужен.

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.First;
while not Table1.Eof do begin
Memo1.Lines.Append(MainForm.Table1. FieldByName('хххх').value+'+');
Table1.Next;
end;
end;

Заранее благодарен Вам за потраченное время. Спасибо.

Вариант:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  Table1.First;
while not   Table1.Eof do begin
  s := s + MainForm.Table1.FieldByName('хххх').value+'+';
  Table1.Next;
end;
  Memo1.Lines.Append(s);
end;

Ответ - жёлто-зелёным .

[Прик]

Метод Append добавляет символы "перевода каретки" после добавления каждой строки.
Вместо Append, как это показал xwicked я бы применил свойство Text, а так же проинициализировал бы локальную переменную:

  S := '';
  ...
  Memo1.Lines.Text := S;

Memo держит строки в свойстве Lines.
Lines - класс TStrings, а каждая строка в этой коллекции имеет тип string.
String, в свою очередь может хранить до 2 Гб информации.
Т.е. сколько "влезет" символов будет зависеть только от объема оперативной памяти и поворотливости Windows.

[efen]

Братцы - работает!
Спасибо большое!
Кстати: а последний '+' убрать можно? (который к последнему выбранному из БД значению подставляется)

[XeruH]

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

Братцы - работает!
Спасибо большое!
Кстати: а последний '+' убрать можно? (который к последнему выбранному из БД значению подставляется)

if S[Length(S)] = '+' then
  Delete(S, Length(S), 1)

[efen]

Чего-то не работает...

[XeruH]

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

Чего-то не работает...

Что именно не работает?

[efen]

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;

[Serge_Bliznykov]

пробуйте:

procedure TForm3.Button1Click(Sender: TObject); // выбор адресов Е-маил и добавление в мемо
var s: string;
begin
s := '';
MainForm.Table1.First;
while not MainForm.Table1.Eof do begin
  s := s + MainForm.Table1.FieldByName('semail ').value + ', ';
  MainForm.Table1.Next;
end;
if (Length(s)>2) and (Copy(s, Length(s)-1,2) = ', ') then
     Delete(s, Length(s)-1, 2)
Memo2.Lines.Text:=s;
end;

[efen]

Ура! Заработала!!!
Спасибо большое!