From 4bf4fdc8910e1813d1a0e7aa2ee020c6267b98f5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 3 Mar 2012 10:35:58 +0000
Subject: [PATCH] codetools: fixed substring

git-svn-id: trunk@35661 -
---
 components/codetools/basiccodetools.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/basiccodetools.pas b/components/codetools/basiccodetools.pas
index 1e8a163221..c1a06247b4 100644
--- a/components/codetools/basiccodetools.pas
+++ b/components/codetools/basiccodetools.pas
@@ -5007,7 +5007,7 @@ var
   l: SizeInt;
 begin
   if (p=nil) or (Count=0) then exit('');
-  l:=IndexByte(p,Count,0);
+  l:=IndexByte(p^,Count,0);
   if l<0 then l:=Count;
   if l=0 then exit('');
   SetLength(Result,l);