From f64ec89e72aac486af611bda2e202770d72d24f8 Mon Sep 17 00:00:00 2001
From: oro06 <oro06@idefix.freepascal.org>
Date: Fri, 15 Dec 2006 08:26:18 +0000
Subject: [PATCH] * fix when dataset is empty, must not read entire stream

git-svn-id: trunk@5602 -
---
 fcl/db/memds/memds.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fcl/db/memds/memds.pp b/fcl/db/memds/memds.pp
index 8a5d1854b1..db181d5f97 100644
--- a/fcl/db/memds/memds.pp
+++ b/fcl/db/memds/memds.pp
@@ -476,7 +476,7 @@ begin
   CheckMarker(F,smData);
   Size:=ReadInteger(F);
   FStream.Clear;
-  FStream.CopyFrom(F,Size);
+  if Size>0 then FStream.CopyFrom(F,Size);
   FRecCount:=Size div FRecSize;
   FCurrRecNo:=-1;
 end;