fix: broken compilation due encoding update to utf-8: ellipsis char constant seen as string now, instead of char

Refs #2474

Author: ansgarbecker

source/apphelpers.pas

@@ -535,7 +535,7 @@ function StrEllipsis(const S: String; MaxLen: Integer; FromLeft: Boolean=True):
     Exit;
   if FromLeft then begin
     SetLength(Result, MaxLen);
-    Result[MaxLen] := '…';
+    Result := Result + '…';
   end else begin
     Result := Copy(Result, Length(Result)-MaxLen, Length(Result));
     Result := '…' + Result;