[Synedit-checkins] SynEdit/Source SynEditMiscProcs.pas,1.34,1.35

[Kirys <ki...@us...>]

Update of /cvsroot/synedit/SynEdit/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12110/Source

Modified Files:
	SynEditMiscProcs.pas 
Log Message:
Fix for AV that shows when using SyneditExportHTML

Index: SynEditMiscProcs.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEditMiscProcs.pas,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- SynEditMiscProcs.pas	31 Jul 2004 23:41:55 -0000	1.34
+++ SynEditMiscProcs.pas	25 Aug 2004 11:13:06 -0000	1.35
@@ -928,7 +928,7 @@
   for i := 0 to HighlighterList.Count - 1 do
     if HighlighterList[i] = Highlighter then
       Exit
-    else if TObject(HighlighterList[i]).ClassType = Highlighter.ClassType then
+    else if (assigned(HighlighterList[i])) and (TObject(HighlighterList[i]).ClassType = Highlighter.ClassType) then
       inc(Result);
 end;