paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 23:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide, i18n, allow some ascii chars to be un-encoded in result string

Browse Source 
git-svn-id: trunk@15441 -
This commit is contained in:
jesus 2008-06-16 19:32:31 +00:00
parent 1ebd38a998
commit ebdec7f951
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lrtpotools.pas
View File

@ -149,7 +149,7 @@ var
// and re-encode back the rest // and re-encode back the rest
while Ustr<>'' do begin while Ustr<>'' do begin
j := UTF8CharacterLength(pchar(Ustr)); j := UTF8CharacterLength(pchar(Ustr));
if j=1 then if (j=1) and (Ustr[1] in [#0..#31,#128..#255]) then
Value := Value + '#'+IntToStr(ord(Ustr[1])) Value := Value + '#'+IntToStr(ord(Ustr[1]))
else else
Value := Value + copy(Ustr, 1, j); Value := Value + copy(Ustr, 1, j);