Merge pull request #12 from androschuk/master

Fixed an issue where GetAppendersClassNames returns an incorrect result
danieleteti · Nov 16, 2017 · 583c1a3 · 583c1a3
2 parents 34134d4 + f4af7f3
commit 583c1a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/LoggerPro.pas b/LoggerPro.pas
@@ -364,7 +364,7 @@ function TLogWriter.GetAppendersClassNames: TArray<string>;
     SetLength(Result, FLogAppenders.Count);
     for I := 0 to FLogAppenders.Count - 1 do
     begin
-      Result[I] := TObject(FLogAppenders[0]).ClassName;
+      Result[I] := TObject(FLogAppenders[I]).ClassName;
     end;
   finally
     TMonitor.Exit(FLogAppenders);