[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] + '; ';

[Kerby]

Я не собираюсь никого просить делать это за меня. У меня получается все, но очень медленно. Возможно, пара хороших советов помогла бы мне ускорить этот процесс. Сроки меня поджимают!!!

[Kerby]

Надеюсь, что все будет работать как надо.

[Kerby]

Я на форму кинул Query, подумал, так правильно. Выскочила ошибка в строке
Query1.Active := True;(напротив зеленая стрелка). Может нужно было какой модуль подключить?

[Kerby]

Мне кажеться, что я неправильно указываю свойство DataBaseName у Query. Я использую базу Access.

[Kerby]

Мне правда очень нужна помощь!!!

[MegaPiha]

Вот простенький пример, как в ListBox заносить данные из поля.

[Kerby]

Я сейчас скомпилирую. Для меня это очень важно.

[Kerby]

Это то, что мне было нужно. Слушай, а я теперь могу содержимое ListBox'a занести в TEdit?