From 6fa7b9363e415360d2ee80a50b01a761f10fea4f Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 3 Dec 2008 12:25:00 +0000
Subject: [PATCH] Fix sstr() to return the exact wanted length instead of
 length + 1

---
 source/helpers.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/helpers.pas b/source/helpers.pas
index 6b507095..e8985979 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -686,7 +686,7 @@ function sstr(str: WideString; len: Integer) : WideString;
 begin
   if length(str) > len then
   begin
-    str := copy(str, 0, len);
+    str := copy(str, 0, len-1);
     str := str + '…';
   end;
   result := str;