Verwendung Datenmodul

[d6lpz]

Zitat von mkinzler:

Such mal nach .FindComponent()

habe jetzt folgendes:

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
        str_datstart :string;
        str_datend :string;
        i :integer;
const
  NamePrefix = 'ADOQuery';

begin
        str_datstart :='01.01.2007';
        str_datend :='31.12.2007';

        for i:=1 to 12 do
                with DataModule1(FindComponent(NamePrefix + [i])) do
                begin
                        active :=False;
                end;
        end;
end;

funktioniert leider nicht - ich komme mit dieser Sache noch nicht zurecht