Где хранится список всех компонентов TDataSource на форме

← →
vodvorezlaya (2006-09-28 09:54) [0]

Всем доброго дня.

Ув. мастера необходимо узнать список всех компонентов TDataSource и занести его в поле ListBox.

Спасибо.

← →
Бугага © (2006-09-28 09:56) [1]

for i:=0 to Form.ComponentsCount-1 do
if Components[i] is TDataSource then...

← →
clickmaker © (2006-09-28 09:58) [2]

Form.Components, проверять if Components[i] is TDataSource

если эти датасоурсы прицеплены к DataSet, а они ссылаются на Database, то можно и через Database.DataSets

← →
vodvorezlaya (2006-09-28 10:06) [3]

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;\

Спасибо. Работает.

Где хранится список всех компонентов TDataSource на форме Найти похожие ветки