Скачать: CL | DM;

Где хранится список всех компонентов 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;\

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c