| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Где хранится список всех компонентов TDataSource на форме [D7, Paradox]
vodvorezlaya © (2006-09-28 09:54:00)Всем доброго дня.
Ув. мастера необходимо узнать список всех компонентов TDataSource и занести его в поле ListBox.
Спасибо.
vodvorezlaya (2006-09-28 10:06:00) [1]procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to Form1.ComponentCount-1 do
begin
if Components[i] is TDataSource
then ListBox1.AddItem(Components[i].Name,Components[i]);
end;
end;\
Спасибо. Работает.
clickmaker (2006-09-28 09:58:00) [2]Form.Components, проверять if Components[i] is TDataSource
если эти датасоурсы прицеплены к DataSet, а они ссылаются на Database, то можно и через Database.DataSets
Бугага (2006-09-28 09:56:00) [3]for i:=0 to Form.ComponentsCount-1 do
if Components[i] is TDataSource then...
| |
