[Kerby]

Мне очень нужно сделать так, чтобы все значения поля (Например "Имя") помещались по нажатию кнопки в список (DBListBox или DBMemo). У меня получается внести в один список одно имя, а нужно в одном списке все имена. Сам не справлюсь. Кому не лень помогите разобраться. СРОЧНО!!!

[lmikle]

Код:

SELECT DISTINCT NAME FROM [TABLE]

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

Код:

var
  S : String;
begin
  S := '';
  Query1.Active := True;
  While Not Query1.EOF Do
    Begin
      S := S + #13#10 + Query1.FieldByName('NAME').AsString;
      Query1.Next;
    End;
  Query1.Active := False;
  Memo1.Lines.Text := S;

[Kerby]

Я просто указывал в свойствах списка откуда нужно брать записи. Можешь подробнее?

[Kerby]

Погоди разберусь...

[Kerby]

Более менее понятно. Думаю буду делать - разберусь. Может ты мне дашь еще один совет?

[Kerby]

Вообще мне нужно написать прогу для организации рассылки в Outlook. Короче итогом работы программы должно стать то, что поля в Outlook'e автоматичеси заполняются теми адресами, которые укажет пользователь. То есть произведет их выборку из базы. Дальше продолжать?

[lmikle]

Тогда вместо Memo1 поставь

Код:

  ListBox1.Items.Text := S;

получишь список в обычном листбоксе.
Далее юзер селектит нужные строчки, а ты при нажатии кнопочки пробегаешь по листбоксу и все выделенные записи копируешь куда надо (не забудь у листбокса Multiselect поставить):

Код:

var
  I : Integer;
begin
  For I := 0 To ListBox1.Items.Count-1 Do
    If ListBox1.Selected[i] Then Edit1.Text := Edit1.Text + ListBox1.Items[i] + '; ';