From c1b02e4dddeab924531e99a4d72f724e1e599687 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 28 Jun 2008 20:43:32 +0000
Subject: [PATCH] codetools: added range check, bug #11573

git-svn-id: trunk@15607 -
---
 components/codetools/pascalparsertool.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index c67dbcad6f..4eca7c189b 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3815,7 +3815,8 @@ function TPascalParserTool.GetExtraction: string;
 begin
   SetLength(Result,ExtractMemStream.Position);
   ExtractMemStream.Position:=0;
-  ExtractMemStream.Read(Result[1],length(Result));
+  if Result<>'' then
+    ExtractMemStream.Read(Result[1],length(Result));
 end;
 
 function TPascalParserTool.ExtractStreamEndIsIdentChar: boolean;