Changeset 40 for ExceptionLogger/UExceptionLogger.pas

Timestamp:

Sep 9, 2010, 1:58:30 PM (14 years ago)

Author:

george

Message:

• Přidáno: Podpora pro možnost ignorovat opakující se výjimky.

File:

• ExceptionLogger/UExceptionLogger.pas (modified) (5 diffs)

ExceptionLogger/UExceptionLogger.pas

@@ -21 +21 @@
     StackTrace: TStackTrace;
     LastException: Exception;
+    IgnoreList: TStringList;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -54 +55 @@
 end;
 
-
 { TExceptionLogger }
 
@@ -60 +60 @@
 begin
   inherited Create(AOwner);
+  IgnoreList := TStringList.Create;
   StackTrace := TStackTrace.Create;
   MaxCallStackDepth := 20;
@@ -69 +70 @@
 begin
   StackTrace.Free;
+  IgnoreList.Free;
   inherited Destroy;
 end;
@@ -155 +157 @@
   Report: TStringList;
 begin
-  Report := TStringList.Create;
-  try
-    CreateTextReport(Report);
-    if FLogFileName <> '' then begin
-      LogToFile(Report);
-      LogStackTraceToFile(StackTrace);
+  if IgnoreList.IndexOf(LastException.ClassName) = -1 then begin
+    Report := TStringList.Create;
+    try
+      CreateTextReport(Report);
+      if FLogFileName <> '' then begin
+        LogToFile(Report);
+        LogStackTraceToFile(StackTrace);
+      end;
+      ExceptionForm.MemoExceptionInfo.Lines.Assign(Report);
+      ShowReportForm;
+    finally
+      Report.Free;
     end;
-    ExceptionForm.MemoExceptionInfo.Lines.Assign(Report);
-    ShowReportForm;
-  finally
-    Report.Free;
+    if ExceptionForm.CheckBoxIgnore.Checked then
+      IgnoreList.Add(LastException.ClassName);
   end;
 end;