Verwendung Datenmodul

[d6lpz]

Zitat von DeddyH:

Wir haben alle mal angefangen

Danke für dein Verständnis

Habe nach einigem Probieren und "Hilfe" lesen aber immer noch Probleme.

Bekomme bei Folgendem die Meldung '"." erwartet, aber ";" gefunden'

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
        x_datstart, x_datend: TDateTime;
        i :integer;
const
  NamePrefix = 'ADOQuery';

begin
        x_datstart := EncodeDate(2007, 1, 1);
        x_datend := EncodeDate(2007, 12, 31);

        for i:=1 to 12 do
            with DataModule1.FindComponent(NamePrefix + IntToStr(i)) as TADOQuery do
                begin
                        Active:=false;
                        Parameters.ParamByName('emplid').Value:=lb_name.KeyValue;
                        Parameters.ParamByName('DatStart').Value:=x_datstart;
                        Parameters.ParamByName('DatEnd').Value:=x_datend;
                end;
        end;
end;

end.

die Variante geht auch nicht:

Delphi-Quellcode:

procedure TMain.lb_nameClick(Sender: TObject);
var
        x_datstart, x_datend: TDateTime;
        i :integer;
const
  NamePrefix = 'ADOQuery';

begin
        x_datstart := EncodeDate(2007, 1, 1);
        x_datend := EncodeDate(2007, 12, 31);

        for i:=1 to 12 do
            with DataModule1.FindComponent(NamePrefix + IntToStr(i)) as TADOQuery do
                begin
                        .Active:=false;
                        .Parameters.ParamByName('emplid').Value:=lb_name.KeyValue;
                        .Parameters.ParamByName('DatStart').Value:=x_datstart;
                        .Parameters.ParamByName('DatEnd').Value:=x_datend;
                end;
        end;
end;

end.

Hast ud einmal ein Hinweis?
Dirk