|
From: Kirys <ki...@us...> - 2004-08-25 11:13:34
|
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; |