Ignore:
Timestamp:
Aug 22, 2011, 8:24:23 AM (13 years ago)
Author:
george
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • ExceptionLogger/UExceptionLogger.pas

    r264 r265  
    4141procedure Register;
    4242
    43 implementation
    44 
    45 uses
    46   UExceptionForm;
    47 
    4843resourcestring
    4944  SExceptionClass = 'Class';
    … …  
    5449  SThreadID = 'Thread ID';
    5550  SVersion = 'Version';
     51  SCallStack = 'Call stack';
     52  SGeneral = 'General';
     53  SErrorOccured = 'Error occured during program execution:';
     54  STerminate = 'Terminate';
     55  SClose = 'Close';
     56  SDetails = 'Details';
     57  SIgnoreNextTime = 'Next time ignore this exception';
     58  SExceptionInfo = 'Exception info';
     59  SIndex = 'Index';
     60  SAddress = 'Address';
     61  SLine = 'Line';
     62  SClass = 'Class';
     63  SProcedureMethod = 'Procedure/method';
     64  SUnit = 'Unit';
     65
     66implementation
     67
     68uses
     69  UExceptionForm;
    5670
    5771procedure Register;
    … …  
    143157
    144158procedure TExceptionLogger.ExceptionHandler(Sender: TObject; E: Exception);
    145 var
    146   Thread: TThread;
    147159begin
    148160  BackTraceStrFunc := @StabBackTraceStr;
Note: See TracChangeset for help on using the changeset viewer.