* Fix bug #33446, crash if filename does not exist, patch by Werner Pamler

git-svn-id: trunk@38547 -

packages/fcl-db/src/memds/memds.pp

@@ -653,7 +653,7 @@ end;
 procedure TMemDataset.InternalOpen;
 
 begin
-  If (FFileName<>'') then
+  If (FFileName<>'') and FileExists(FFileName) then
     FOpenStream:=TFileStream.Create(FFileName,fmOpenRead);
   Try
     InternalInitFieldDefs;