Filter on an null cursor should be null

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@597 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-10-23 14:39:28 +00:00
parent 6741150b9a
commit cfba265867
1 changed files with 4 additions and 1 deletions
--- a/wst/trunk/wst_rtti_filter/cursor_intf.pas
+++ b/wst/trunk/wst_rtti_filter/cursor_intf.pas
@ -137,7 +137,10 @@ function CreateCursorOn(
  AFilter      : IObjectFilter
 ) : IFilterableObjectCursor ;
 begin
-  Result := TSimpleObjectFilterableCursor.Create(AInputCursor,AFilter);
+  if ( AInputCursor <> nil ) then
+    Result := TSimpleObjectFilterableCursor.Create(AInputCursor,AFilter)
+  else
+    Result := nil;
 end;