Fórum JCl Alguem trabalha com a jclDebug #321878

Pessoal baixei o pacote jcl e vi a caixa de mensagem decidi fazer uma parecida mostrando o computado,sistema operacional e a a unit do erro linha e quem chamou. Eu consegui utilizar ela toda menos a parte onde eu pego alinha que gerou exceção e quem a chamou. O codigo retirado do proria tela de da jcl

[color=green:6257afc805]
if siStackList in SystemInfo then
begin
StackList := JclLastExceptStackList;
if Assigned(StackList) then
begin
StackList.AddToStrings(Memo1.Lines, False, True, True);
Memo1.Lines.Add(StrRepeat(ReportNewBlockDelimiterChar, 100));
end;
end;
[/color:6257afc805]

só que na minha unit quando é a linha deste if

[color=green:6257afc805]
if Assigned(StackList) then
[/color:6257afc805]

não entra e na tela de erro do jcl entra o que eu gostaria de pegar e a

linha que foi erro a unit, a unit e a funcao que chamou esta unit acima



Desde já grato.