پیدا کردن فیلدها از روی اشیا موجود در فرم

[V60]

من می خواهم بدونم چطوری می شه فیلدهایی که ماله یک جدول هستند و درون یک adotabel یا adoquery هست را ببینم که به چه شی در فرم وصل است ، در حقیقت می خواهم جستجو کنم ببینم چطوری اینکار ممکنه
نمی دونم سوالم واضحه یا نه
من 100 تا فرم دارم می خواهم ببینم که فیلدهایی که به این dbedit ها وصل است چی است ، این کار را چگونه می شه انجام داد بدون کد نویسی هم می شه؟ :گیج:

[MToloo]

بدون کد نویسی؟ عمرا.
با کد نویسی؟ :
<span dir=ltr>
procedure DoSomeThingWithFields &#40;AForm&#58; TForm; DataSet&#58; TDataSet&#41;;
var
i&#58; integer;
FieldName&#58; string;
begin
for i&#58;= 0 to AForm.ComponentCount- 1 do
if AForm.Components&#91;i&#93; is TDBEdit then
if TDBEdit&#40;AForm.Components&#91;i&#93;&#41;.DataSource.DataSet = DataSet then
begin
FieldName&#58;= TDBEdit&#40;AForm.Components&#91;i&#93;&#41;.Field.FieldName;
&#123;now do some thing with fieldname&#125;
end;
end;
</span>