Fórum Selecionar vários registros em DBGrid e enviá-los para outra #260027

procedure TFrmCertidoes.suiButton1Click(Sender: TObject); Var I:Integer; begin for i := 0 to DB3DGrid1.SelectedRows.Count - 1 do begin Certidoes.Append; CertidoesNomeDoAluno.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´NomeDoAluno´).value; CertidoesMatricula.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´Matricula´).value; CertidoesNomeDoPai.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´NomeDoPai´).value; CertidoesNomeDaMae.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´NomeDaMae´).value; CertidoesDataDeNascimento.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´DataDeNascimento´).value; CertidoesNaturalidade.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´Naturalidade´).value; CertidoesNacionalidade.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´Nacionalidade´).value; CertidoesCPF.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´CPF´).value; CertidoesIdentidade.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´Identidade´).value; CertidoesNomeDoCurso.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´NomeDoCurso´).value; CertidoesNomeDaUnidade.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´NomeDaUnidade´).value; CertidoesDataDeColacao.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´DataDeColacao´).value; CertidoesAnoDaConclusao.Value:=DB3DGrid1.datasource.dataset.fieldbyname(´AnoDaConclusao´).value; Certidoes.Post; End; end;