Delphi dicas

Criar horários em um determinado dia de uma agenda usando repeat

Procedure TfmAgendaExames.BtSalvarClick(Sender: TObject);



var



hHora, hInicio, hFim, hIntervalo: TDateTime;



//exameid: asstring;

begin

        //  fmAgendaExames.Tbageexa.Insert;



        {With qryMaxCount do

        Begin

        If not Prepared then Begin

        prepare;

        open;

end;

end; }



        hInicio := strToTime(edMOE_EMISSAO_TIME.Text);

        hFim := strToTime(MaskEdit1.Text);

        hIntervalo := strToTime(MaskEdit2.Text);

        hHora := hInicio;

        lbHorarios.Items.clear();







        repeat

                //  vAgd_id := vAgd_id + 1;

                lbHorarios.Items.Add(TimeToStr(hHora)); // Horarios

                hHora := hHora + hIntervalo;

                tbageexa.Insert;



                tbageexa.FieldByName('agd_data').AsDateTime := fmAgendaExames.DateEdit1.Date;

                tbageexa.FieldByName('agd_hora').AsDateTime := hHora + fmAgendaExames.DateEdit1.Date;

                tbageexa.FieldByName('agd_exa').AsString := Tbproc.fieldbyname('exa_id').asstring;

                tbageexa.FieldByName('agd_exadesc').AsString := Tbproc.fieldbyname('exa_nome').asstring;

                tbageexa.FieldByName('agd_exaprepa').AsString := tbproc.fieldbyname('exa_preparo').AsString;

                tbageexa.FieldByName('agd_setid').AsInteger := Tbsetor.fieldbyname('set_id').asInteger;

                tbageexa.FieldByName('agd_setdesc').AsString := Tbsetor.fieldbyname('set_nome').asString;

                with qrymaxAgd do

                Begin

                        If not Prepared then Begin

                                prepare;

                        end;

                        open;

                end;

                tbageexa.FieldByName('agd_id').AsInteger := qrymaxAgd.fieldbyname('vTOTAL').asInteger +1;

                tbAgeExa.Post;

                qrymaxAgd.Close;

                //tbageexa.FieldByName('')

                //table1.fieldByName('Campo').AsDateTime := nHora;



        until (hHora >= hFim);

        //DateEdit1.Date :=

        dbgrid1.DataSource.Enabled := False;

        dbgrid2.DataSource.Enabled := False;

end;

por : Flavio Andre Barcellos Siqueira