Fórum Nº das Linhas de código em execução #181986
14/09/2003
0
Tem como capturar o nº da linha do código na Unit que o aplicativo está executando?
Por exemplo:
If Key = VK_F3 Then Begin linha 2000
DM1.DB1.Connected:=False; linha 2001
Panel1.show; linha 2002, etc
Edit16.setfocus;
end;
Na Unit eu tenho os numeros de cada linha na barra de status. Precisava pegá-los em tempo de execução.
[color=darkred:544036cbb1][/color:544036cbb1][color=darkred:544036cbb1][/color:544036cbb1][b:544036cbb1][/b:544036cbb1] :o :o :o
Koplin
Curtir tópico
+ 0Posts
14/09/2003
4_olho
lembre-se que o executável gerado pelo Delphi é COMPILADO e não interpretado.
Use bookmarks e F7 ou F8 para debugar seu código, pois parece que é isso que está querendo.
Gostei + 0
14/09/2003
Koplin
Uso isso em testes de desempenho com usuario teste.
Gostei + 0
14/09/2003
4_olho
Não existe mais esta linha de código depois de compilado. Esta linha só existe em código interpretado (linha a linha).
Talvez uma sugestão seja colocar uma variável para cada procedure ou parte dela e ir gravando seu valor quando ocorrer um erro. Mas aí teria de colocar try...except no seu código todo.
Às vezes eu costumo encher meu código de ShowMessages nas partes mais críticas. Na mensagem procuro colocar qual procedure ou parte dela está em execução.[/code]
Gostei + 0
14/09/2003
Koplin
Valeu
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)