Есть ли такой компонент?

[Andrej_K]

Спасибо. И этот код сделать процедурой при создании формы (открытии окна)?
А вот тут — Table.Fields[0] — значение в квадратных скобках разве инкремировать не нужно? Это делает Table.Next?

[Stilet]

И этот код сделать процедурой при создании формы (открытии окна)?

Та это кагбэ на твое успотрение. Сразу после открытия набора вставь.

значение в квадратных скобках разве инкремировать не нужно?

Нет. Это номер поля (колонки) а не записи. Table.Next переходит на следующую запись.

[Andrej_K]

Блин, тема плавно переходит в сторону БД.
Но что делать, сдесь продолжу уже…

Вот что я намудрил:

procedure TFormGlavnoeOkno.FormCreate(Sender: TObject);
begin
While not ADOTableKluchevyeSlova.eof do begin
 CheckListBoxSpisokSlov.Items.Add(ADOTableKluchevyeSlova.Table.Fields[1].asString);
 ADOTableKluchevyeSlova.Next;
end;
end;

Хлещет ошибками…
В таблице у меня есть ещё ключевое поле (первое), поэтому я правильно сделал, что полю, из которого делается выборка, назначил «1»? Всего два поля.

[Аватар]

Во 1-х нужно показывать какие ошибки
Во 2-х датасет должен быть открыт на момент выполнения такого кода. Подозреваю, что этого не сделано
В 3-их нумерация начинается с 0 и это легко проверяется даже методом тыка без пустых вопросов на форуме
В 4-ых перед началом цикла не помешает ADOTableKluchevyeSlova.First, кто знает где находится указатель записи

[Andrej_K]

Вот ошибки.
То, что начинается с ноля, я знаю. Речь шла о поле, данные которого нужно выводить, оно у меня второе по счёту, вот я и поставил значение «1».

[Stilet]

Внимательнее будь: DataModuleVinos содежит твое АДОквери, вот его ты в цикле и забыл

[Andrej_K]

Сделал вот так:

procedure TFormGlavnoeOkno.FormCreate(Sender: TObject);
begin
While not DataModuleVynos.ADOTableKluchevyeSlova.eof do begin
 CheckListBoxSpisokSlov.Items.Add(DataModuleVynos.ADOTableKluchevyeSlova.FieldByName('Slova').AsString);
 DataModuleVynos.ADOTableKluchevyeSlova.Next;
end;
end;

end.

Теперь выдаёт ошибок уже меньше, но выдаёт) Сборка и компиляция проходят нормально, а призапуске вот такая хрень:

[Stilet]

Возможно это потому что FormglavnoeOkno создается раньше чем DataModule.
Значит нужно этот код вставлять в другое место программы. Например в OnCreate этого Датамодуля. При этом не забывая писать в коде FormGlavnoeOkno.DataModuleVynos.ADO TableKluchevyeSlova.Бла-Бла

[Andrej_K]

Да, видимо дело в этом. Я кинул на форму кнопку и по её нажатию запустил цикл:

procedure TFormGlavnoeOkno.Button1Click(Sender: TObject);
begin
While not DataModuleVynos.ADOTableKluchevyeSlova.eof do
begin
 CheckListBoxSpisokSlov.Items.Add(DataModuleVynos.ADOTableKluchevyeSlova.FieldByName('Slova').AsString);
 DataModuleVynos.ADOTableKluchevyeSlova.Next;
end;
end;

Всё вывелось в ЧекЛистБокс как миленькое. Буду думать, как запустить вывод при запуске приложения.

[Прик]

Думать здесь особенно нужды нет - все уже давным-давно придумано.
Если дата модуль при запуске программы создавать первым, перед созданием главной формы, то к моменту OnCreat формы компоненты доступа к БД будут активными и к ним можно обращаться без ошибок.
А чтобы дата модуль создавался первым нужно открыть меню Project - Options
закладка Forms и в левом списке перетащить мышкой дата модуль вверх на первое место.
Все. Можно заполнять список в FormCreate формы.