Solved

Search DB control

Posted on 1999-01-01
1
165 Views
Last Modified: 2010-04-04
how do i search through the controls in the form and access the property of the component TQuery,TDataSource and TTable, the following code is just apply to Component that is under TControl but how about Database component like TQuery,TDataSource and so on. ?

for i := 0 to form1.controlcount -1 do
  if controls[i] is TEdit then
      dosomething
 
0
Comment
Question by:dumper
1 Comment
 
LVL 17

Accepted Solution

by:
inthe earned 20 total points
ID: 1354105
If I understand correctly use ComponentCount Instead

procedure TForm1.Button1Click(Sender: TObject);
Var I : Integer;
begin
for i:=0 to Form1.ComponentCount -1 do
if components[i] is tdatasource then
Datasource1.enabled:=false;
end;

Regards Barry
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Finding and deleting duplicate (picture) files can be a time consuming task. My wife and I, our three kids and their families all share one dilemma: Managing our pictures. Between desktops, laptops, phones, tablets, and cameras; over the last decade…

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question