Duvida ao debugar no Delphi XE8

Delphi

19/07/2016

Bom dia Pessoal,

estou com a seguinte duvida.

Desenvolvo a muito tempo em Delphi 7, porem resolvemos migrar para o Delphi XE 8.
Porem quanto coloco um breakpoint no código o mesmo não para nele.

É necessário que seja feita alguma configuração nesta versão ?
Isael Junior

Isael Junior

Curtidas 0

Respostas

Roberto Wutke

Roberto Wutke

19/07/2016

tira o BP e tenta olhar se quando vc manda um Ctrl + F9 pra compilar, se aparece uma bolinha azul do lado esquerdo da linha do BP. Caso não apareça é porque o delphi "desconsiderou" essa linha por não estar sendo utilizada em nenhuma parte do seu código.

tenta postar o bloco de código para clarear mais...

Bons Códigos
GOSTEI 0
Victor Zanella

Victor Zanella

19/07/2016

Para debugar, é necessário estar em modo debug. confere ae:
[img]https://i.imgsafe.org/e92d83655f.jpg[/img]
GOSTEI 0
Isael Junior

Isael Junior

19/07/2016

Roberto, coloquei o break, e quando dei Ctrl + F9, a bolinha continuou vermelha, no caso, coloquei no if.

segue o codigo

procedure TFormValidadorNfe.btnArquivoClick(Sender: TObject);
var
 vCaminhoXml : String;
begin

 OpenDialog.Title := 'Selecionar XML\';
 OpenDialog.InitialDir := 'C:\\';
 if OpenDialog.Execute then
 Begin
   vCaminhoXml :=  OpenDialog.FileName;

   Memo1.Clear;
   Memo1.Lines.LoadFromFile(vCaminhoXML);
   ACBrNFe1.NotasFiscais.LoadFromFile(vCaminhoXML,true);
   try
    ACBrNFe1.SSL.NumeroSerie:= edtTipoCertificado.Text;

    if ACBrNFe1.SSL.CertificadoLido = False then
     ACBrNFe1.SSL.CarregarCertificado;

    ACBrNFe1.SSL.SelecionarCertificado;
    ACBrNFe1.NotasFiscais.Validar;
    if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
      MemoDados.Lines.Add('Alertas: '+ACBrNFe1.NotasFiscais.Items[0].Alertas);
      ShowMessage('Nota Fiscal Eletrônica Valida');
   except
    on E: Exception do
    begin
          MemoDados.Lines.Add('Exception: '+E.Message);
          MemoDados.Lines.Add('Erro: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacao);
          MemoDados.Lines.Add('Erro Completo: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto);
     end;
   end;

   //ACBrNFe1.NotasFiscais.GerarNFe;
   //ACBrNFe1.NotasFiscais.Assinar;
 end;
end;
GOSTEI 0
POSTAR