Subject | Re: [IBO] Looping thru queries in DM |
---|---|
Author | Helen Borrie |
Post date | 2004-12-06T06:30:47Z |
At 10:13 AM 6/12/2004 +1100, you wrote:
In ObjectPascal:
var
ii: integer;
begin
..
with MyDatamodule do
begin
for ii := 0 to ComponentCount - 1 do
if Components[ii] is TIB_Query then
TIB_Query(Components[ii]).Open;
end;
..
end;
Helen
>I remember seeing a neat little while loop structure somewhere in the IBOYou might have seen it in the GSG (where there is also CPPB code for it).
>samples or tutorials (I thought) which opened all queries which existed in
>the datamodule.
>I can't find it or maybe it had nothing to do with IBO..
In ObjectPascal:
var
ii: integer;
begin
..
with MyDatamodule do
begin
for ii := 0 to ComponentCount - 1 do
if Components[ii] is TIB_Query then
TIB_Query(Components[ii]).Open;
end;
..
end;
Helen