paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtf8: add some more C-escape strings for the Utf8EscapeControlChars function.

Browse Source 
git-svn-id: trunk@64062 -
This commit is contained in:
bart 2020-10-24 10:03:39 +00:00
parent ab249d8492
commit 5812e23a64
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/lazutf8.pas
View File

@ -2898,10 +2898,10 @@ const
'#16', '#17', '#18', '#19', '#20', '#21', '#22', '#23',
'#24', '#25', '#26', '#27', '#28', '#29', '#30', '#31');
CEscapeStrings: Array[#0..#31] of string = (
'\0' , '\0x01', '\0x02', '\0x03', '\0x04', '\0x05', '\0x06', '\0x07',
'\0x08', '\t' , '\r' , '\0x0B', '\0x0C', '\n' , '\0x0E', '\0x0F',
'\0' , '\0x01', '\0x02', '\0x03', '\0x04', '\0x05', '\0x06', '\a' ,
'\b' , '\t' , '\r' , '\v' , '\f' , '\n' , '\0x0E', '\0x0F',
'\0x10', '\0x11', '\0x12', '\0x13', '\0x14', '\0x15', '\0x16', '\0x17',
'\0x18', '\0x19', '\0x1A', '\0x1B', '\0x1C', '\0x1D', '\0x1E', '\0x1F');
'\0x18', '\0x19', '\0x1A', '\e' , '\0x1C', '\0x1D', '\0x1E', '\0x1F');
HexEscapeCStrings: Array[#0..#31] of string = (
'\0x00', '\0x01', '\0x02', '\0x03', '\0x04', '\0x05', '\0x06', '\0x07',
'\0x08', '\0x09', '\0x0A', '\0x0B', '\0x0C', '\0x0D', '\0x0E', '\0x0F',